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Siete ancora aumentati di numero e le vostre innumerevoli lettere 
e telefonate non mi lasciano indifferente. Ur anno fa uro dei pri= 
mi in Italia mettevo il primo seme in un terreno molto arido e: ar= 
cora inesplorato. Dodici mesi e ho visto nascere una cigartesca 
pianta che con le sue radici tocca ormai tutte le città italiare, 


Ci davano per spacciati a noi Texari, isclati, sperduti, cuasi de= 
risi. Siamo invece ocai 30C0 !!!! La più crande famialia di un 
Home Computer d'Italia che converce in ur unico punto e che riceve 
da esso notizie fresche, informazioni, listati inediti e sopratut= 
to amicizia. All'altro capo del filo nessuna Redazione, rapporti 
impersorali, sempre e solo io FRANCO e al massimo mia moglie. 


Non ci siamo mai visti e ci diamo tutti del fu come se ci cono= 
scessimo da anni. Non ci siamo mai visti e ben 50 di voi mi hanno in: 
vitato a passare le vacanze con loro, , ospite!!!! 


GRAZIE |! GRAZIE |! GRAZIE ! Sono commosso, felice e ripacato di 
tante tante ore dedicate a voi, alla vostra corrispondenza, alla 
vostra rivista. 


La mia Estate sarà qui. I ciovani liberi dallo studio saranro im= 
pegnati sulla tastiera. Non posso certamente lasciare muto il te= 
lefono, non posso certamente nel momento che più avranno bisocro 

di me essere assente. Quanti caiovani premono. Li vedo nei miei 
nuovi locali. 20 computer a loro disposizione, tutti per loro per 
provare, capire, conoscere, sapere,reciprocamente. 


Con la mia iniziativa frutto del mio entusiasmo sto assisterdo 
sbalordito, incredulo, alla più qgrarde rivoluzione bioculturale 
dell'uomo. Anni fa leagendo i aranci ricercatori sul cervello, 
(Granit, Eccels, Lashley,Wiener etc) si accennava ormai qaià con 

ura mappa,al complicatissimo intrico di circuiti mnemonici del 
nostro cervello e alla struttura non rigida ma in continua tras= 
formaziore e che si ricompone carni volta in modo diverso. 

"Pensare" sinnifica simulare stimoli e cuindi modificare continua= 
mente cor i risultati cli stessi stimoli, senza sosta ur cortiruo 
incrociarsi di sterminati messaagi chimici ed elettrici attraverso 
i SI-NO-N0-SI, onde di ritorrio continue, modificate. Esperienze che 
vanno agciungersi a quelle memorizzate influenzandole e modificando 
le successive risposte in un crescendo continuo. Questi scienziati 
dando per scontato un piccolo patrimonic denetico auspicavano un 


Cuando scrivevano c'erano solo pochi esemplari di computer, non 

potevano imaginare che nell'84 milioni di ancora più potenti sareb= 
bero arrivati sul tavolino di milioni di ragazzi, e neanche imagina=. 
Tono che questi vi avrebbero messo dentro con una chiarezza incredi= 
bile, con una logica figurativa immediata e attiva migliaia di espe= 
rienze. I risultati li vediamo già. Difficile spiegare a un ragazzo 
di 10/12 anni le espressioni logiche e relazionali. Da solo invece 
le capisce velocemente e subito dopo le usa cuando le trova infilate 
in un semplice programma dove un bamboccio si deve muovere. Stupefa= 
Cente e incredibile !! Subito dopo passano oltre " se ho fatto ques= 


l L, i tI 
to posso far qduesto e dopo cuesto e dopo...." Fantastico Lili... 


Se è così in tutto il mondo ( ed è così ) il futuro ci riserve= 

ra la messa in discussione di molte organizzazioni sociali, eco= 
nomiche, politiche . La Scuola prima, l'industria poi ( o prima?) 
la politica per conseguenza. Una crisi a catena, | 


Molti ai vertici stanno vedendo solo la punta di questo fenomeno 
emergente, io invece lo sto vivendo in prima persona e scusate la 
presunzione ne ho anche un po anticipato i tempi qui nella mia 
città. Primo a metterlo in vetrina ( e quale vetrina ! ) primo 

a far- entrare la gente e a farlo provare, vedere, utilizzare. 


Il primo a smitizzarlo! Ricordate sempre che ho iniziato dentro 
una tabaccheria. A racazziri, Dottori, Ingeareri, Professori, 
Avvocati, Industriali, Notai, Scienziati etc etc ho venduto loro 
il primo computer spiegandoalielo e convincendo ad iniziare con 
esso l'avventura del secolo. 


Venne poi il contatto con voi, le vostre 10.000 lettere, le migli= 
aia di teleforate, la Rivista ! Cra i maggiori diriqgerti delle 
grandi grandissime aziende di Computer e di case editrici venago= 

no a trovarmi per vedere e studiare nel mio piccolo negozio il 
fenomeno. ( Rimangono frastornati, increduli e toh mi danno del TU 


Avete visto cari amici dopo la mia rivista quante ora ne sono 
uscite ? Non abbiamo anticipato i tempi anche in questo ? 
Certo hanno la carta patinata, i mille colori dei rotocalchi. 
Manca ancora... 00006s, non fatemelo dire. Lo sapete del resto! 


Perchè mai allora mi avete inviato 10.000 lettere e ricevute 
10.000 risposte? Perchè mai già un centinaio di voi e venuto 
a trovarmi da Senevento, Napoli, Roma, Ventimiglia etc etc ? 


Perchè mai i migliori proarammi li inviate a me e non a cuelle? 


Siamo e rimarremo amici. Ura ocrande famialia si è formata. Sempre 
più arande, semore più atterta. 


Nello scorso numero vi avevo avvertiti di tenere duro. Novità 
grosse in vista: Non state ad acquistare trabiccoli tanto pubbli= 
cizzati ( a proposito il nostro tanto temibile concorrente, no= 
tizia fresca, ha cessato la produzione! ) Arriva fra poco il 
fantastico IBM PCjr. Farà piazza pulita di tutti, il vuoto intorno 
a Se. 


E per farvi capire che potete ancora contare su di me e sul vostro 
ricordate vostro ) CLUB inizio primo ir assoluto in Italia a 
pubblicare programmi ISM. 


Non. solo,ma ognuno di essi sarà in versione TI 99° In.-modo di 
capire le differenze nella programmazione, conoscere il nuovo, 
imparare in fretta cosa è un grosso computer. 


Leggete le ultime pagine! E conservate queste riviste. La prima 
rivista di listati è stata in Italia la nostra. fatta in casa, 
quindi pionieri. Il primo numero è già un cimelio.! 


Grazie ancora a tutti. Se non c'eravate voi sarei oggi uno sco= 
nosciuto. GRAZIE ! | 


(ca 






TEMPO RELATI 








| EX (2 ASIC Un'importante conseguenza del principio della relatività ristretta, formulata 
Ì da Einstein nel 1905, è la non esistenza di un tempo assoluto: non è possi- 





! bile, cioè, stabilire se due eventi, che avvengono in due punti differenti, siano 
| ; © no contemporanei. Immaginiamo, per esempio, due osservatori lontani l'uno 

pi AL A Mali dall'altro e dotati ciascuno di un orologio. | due orologi sono stati sincroniz- 
la zati avvicinandoli prima di questa esperienza ideale; ciascun osservatore si 

è poi portato con sé il proprio. Nel timore che, durante il tempo d'allonta- 


namento, i due orologi si siano disaccordati, i due osservatori li vogliono con- 
trollare: si invia un segnale luminoso da un osservatore ail’altro, il quale lo 


5 REN FRANCORNPUTER riffletterà immediatamente. Si annota sia ii tempo in cui il segnale è stato 

5I REN ricevuto dal secondo osservatore sia il momento in cui tale segnale è tornato 

108 REN CALCOLI LABORATORIO FISICA EI.BASIC al primo. Conoscendo la distanza tra i due osservatori, è possibile accordare 
150 REM BY STEFANO LUISE ANNI 14 i due orologi. 


126 DIN AFIOO) 
130 CALL CLEAR +: CALL CHARTI20, "00000003070F 1F3F7FFF08090800000000000000E0F0FBF 


CFEFF101010000000") Se però i due osservatori sono in moto trasiatorio uniforme l'uno rispetto al- 
140 CALL SPRITE(£1,120,2,1,1,12,13) l'altro, nei tempo intercorso tra l'andata e il ritorno del segnale luminoso, il 
150 CALL MOTION(£1,0,25) secondo osservatore si sarà spostato. Di quanto, tuttavia, non lo possiamo 
{40 CALL MAGRIFY(4) sapere perché, secondo il principio della relatività ristretta, si ammette che 
170 CALL COLOR(12,4,4) non esiste un criterio per stabilire in modo assoluto se un osservatore sia 
190 CALL HCHAR(3, 1, 120,32) fermo o in moto traslatorio uniforme. nello spazio. Ogni osservatore ha dun- 
190 FOR ISP TO 12 que un suo tempo proprio, poiché può guardare il proprio orologio, ma non 
200 CALL S0UNDI150,-1,4) può sapere se tale tempo è in accordo con quello di un altro osservatore 
0 NET I esterno: esiste perciò quello che si chiama tempo locale e non esiste il tempo 
220 CALL MOTIONI£I,0,6) assoluto. È questa la relativizzazione del concetto di tempo. 


250 DISPLAY AT(7,4): "SU QUESTA ROTAIA" 

240 DISPLAY ATT8, 4): "SCORRE UN (CAVALIERE) III" 
200 FOR I3i TO 400 s: RESTI 

260 DISPLAY ATTS, 4):"CON UR CRONOMETRO: " 1: CALL CHARCI4O, "000403020409102020100 
904020100000020C0C0h09099940408102040800050%) 

270 FOR I=I TO 500 1: RESTI 

200 CALL MAGNIFY(4):: CALL SPRITE(£I, 140,2,96,90) $ # 

290 CALL MOTIONI£I,0,0) 

500 DISPLAY ATII7,4): "VENGONO FATTE DELLE MISURA: IONI 11" 

340 FOR I=i TO 600 1: NEITI 

s20 CALL DELSPRITE GALLI | 
350 CALL CLEAR | 
340 DISPLAY ATTIZ,6):"DA QUESTE PUOI RICAVARE:" 1: FOR Is! TG 500 1: NET I 





350 CALL CLEAR 
S60 PRIRT "1) IL VALORE MEDIO” 


JP) PRIRT 
390 PRINT "2) L'ERRORE ASSOLUTO DEL TERPO (DELTA T.)° 
390 PRINT 


400 PRINT *3) L'ACCELLERAZIONE” +: PRINT 
410 PRINT "#) L'ERRORE ASSOLUTO DELL'ACCELERAZIONE (DELTA A.)” :: PRINT 

420 PRINT *5) L'ERRORE RELATIVO (DELTA E.)" 1: PRINT 

430 PRINT #5) PER FINIRE® :: PRINT 

440 FOR S=0 TO 30 STEP 5 | 
450 CALL S0UND(200, 110,5) | 
450 NEIT 5 | 
470 INPUT “COSA SCEGLI 77 ":l 

490 CALL SCREEN(8) 

490 IF X<=0 OR 06 THEN 500 ELSE 520 

500 PRINT "MA NON SAI NEPPURE BATTERE ?* 

510 STOP 

520 IF X=1 THEN 540 1: IF }=2 THEN 900 ss IF 1=3 THEN 930 

STO IF X=4 THEN 1090 s: IF X=5 THEN 1310 cs IF X=6 THEN 1520 

540 CALL CLEAR 1: DISPLAY AT{12,9): "VALORE MEDIO 

550 FOR Ii TO 500 n SENTI 





260 CALL CLEAR cs PRINT "IL VALORE MEDIO FRA "i "PIU MISURE, E' QUELLO FRA "DI 
ESSE CHE SI Si "AVVICINA PIU ALLA REALTA"." 

570 FOR Isl TO 500 1: REIT I 

580 PRINT 1: PRIN 

590 PRINT "PER RICAVARLO, SI FA LA SONA DEI":*VALORI, DIVISO IL KUMERO DEGLI ST 
ESSI” 

500 PRINT 1: PRIKI 1: PRIBI 

510 FOR G=0 TO 30 STEP à 

620 CALL SOUNDI300, 690,6, 1924,6) 

530 REZI & 

440 INPUT "SU QUANTI VALORI DESIDERI IL CALCOLO 7": 

550 IF N(=0 OR Y>100 THEN 440 

560 FER ISP TOI 

670 PRIRT "DATO KUMERO";[ 

680 INPUT "VALORE 70ifil) 

590 RETI 

700 FOR ISP TO) 

710 T=THRCI] 

TO NENTI 

750 TMEDIA=T/1 

740 PRINT 

750 PRINT "MEDIA ="3THEDIA 

760 PRINT 1: PRINT 

770 INPUT "PER ALTRE MEDIE PRENI L, PER FINIRE S :h8 

780 IFOR$="L" THEN 540 1: IF M$="5" THER 130 

790 END 

800 CALL CLEAR 1: DISPLAY AT(12,6): "ERRORE ASSOLUTO” 

810 FOR I=1 TO 5001: NEITI 

920 CALL CLEAR 1: PRINT "L'ERRORE ASSOLUTO (DELTA T.)":"MISURA L'ERRORE CHE SÌ P 
UO” FARE": "IN UNA MISURAZIONE” 

GIO FOR I=I TO 6001: RESTI 

040 PRINT :: PRINT 

550 PRINT "LA RELAZIONE CHE SI USA E' >" r: PRINT 1: PRINT "(VAL. NAV. HIHI/Z 


960 INPUT "VAL, MAL 1 ":VN n: INPUT "VAL. NIN, 7 "ivi 
970 DI={VA-+I}/2 

980 PRINT 1: PRINT “DELTA T, ="DI 

990 CALL SOUND (500, 110,0, 131,0, 196,3) 

900 PRINT 1: INPUT “PER ALTRI DELTA PREMI L, PER FINIRE 5:86 
910 IF H$="L? THEN 900 1: IF R6=*5" THEN 550 

920 END 

930 CALL CLEAR 1: DISPLAY AT{12,6): “ACCELERAZIONE” 
940 FOR I=i TO 500: HEITI 

050 CALL CLEAR 1: PRINT "DATA LA RELAZIONE 1%: "SPAZIO=1/2#ACC,.+742" 13 PRINT "L 
ACC, SARA DATA DAL" 

940 PRINT 1: PRINT "ACC.=2#GPAZIO/T°2" 

970 CALL S0UND(500,000, 1,504,2,000,3) 

996 FOR Ist 70700 sr NEITÎ 

990 PRIRT 

1000 INPUT “SPAZIO = ":5 

1010 INPUT *TENPO =i:î 

1020 PRINT 11 AC=285/7%2 

1030 PRIRT "ACCELERAZIONE ="3AC 

1040 PRIKT 11 PRIRT 

1050 INPUT "PER ALTRE ACC. L, PER FINIRE 5 °:H8 

1060 IF M$="L" THEN 950 

1070 IF N$="5" THEN 350 

1080 END 

1090 CALL CLEAR 1: DISPLAY ATTI2,7}: "DELTA ACC." 
1190 FOR Isi TO 500 11: NETI 

1{19 CALL CLEAR | 

1420 PRINT "L'ERRORE ASSOLUTO DELL'ACCELERAZ, ":MI DA L'ERRORE CONNESSO REL":"CA 
LEGLO DI PIU ":*ACCELERAZIONI* 

1130 FOR S=0 TO 30 STEP 2 

1140 CALL SOURD(-50, 230- (485), 30-4, 2500-(40#5),5) 
1190 MESI S 


1 TO 500 1: NEITI 


410 CALL CLEAR 1: DISPLAY ATCI2, 12): "DELTA E.=DELTA T./TEMPO MEDIG® 
420 FORI 


400 PRINT "LA RELAZIONE E' LA SEGUENTE" 1» FORI 


1370 FOR T=0 TO 30 STEP 2 
1390 CALL SOUNDI300,-7,T)s: KENT T 


1340 PRINT “DATO CHE L'ERRORE ASSOLUTO NON CI DICE": "MOLTO SULLA CERTEZZA DELLA 
390 PRINT 1: PRINT 


MISURA" 
1360 PRINT "DOBBIANO ALLORA CALCOLARCI L'ERRORE RELATIVO" 


1350 PRINT 1: PRINT 


DELTA SP/SP MEDIO + 2410, TEMPO/TENPO 
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SAeFaAND 
avanti così ! 


1 TO 3500 1: NEITI 


":5M 1: INPUT "DELTA TE 


INPUT "SPAZIO MEDIO 


1240 INPUT "DELTA SPAZIO = "05 i: 


spess agro SÙ rp et 


DT 
250 INPUT "TENPO MEDIO = ":TN 1: INPUT “ACCELERAZIONE= ":AC 


260 DA=({D5/GM+Ze (DT/TH)) #AC 


HPO 


450 PRINT "SCRIVI 1" 
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280 PRINT 1» INPUT "PER ALTRI VALORI PREMI L, PREMI S PER FINIRE":M$ 


270 PRINT 1: PRINT "IL DELTA DELL'ACCELERAZIONE E' 1"iDA 
290 IF N$="L" THEN 1090 1: IF N$="S" THEN 350 


480 PRINT "IL DELTA E. SARA’ UGUALE A :%DE 


490 PRINT 1: PRINT 


500 INPUT “PER ALTRI VALORI L, PER FINIRE 5 ":N6 
510 IF M$="L" THEN 1310 s: IF M$="G" THEN 350 


310 CALL CLEAR rs DISPLAY AT{12,10): "ERRORE RELATIVO” 


pon] Sortteà cqenrt er spurgo 


CRAUE 


| 


Rune) gaia) SE mein Sd 


170500 s: NENTI 


1330 CALL CLEAR 


320 FORI 


recai 








1 REMO BEEFREFEEELIFELILE 











2 RER 
3 REN FRANCOMPUTER 
4 RER 
5 REM BEFEREFEEFEFEEHHE 
5 REN 
10 REM SIMULAZIONE DELL'ATTERRAGGIO DI UN AEREG ULTIMATO IN DATA 4/2/19 
64 OCCUPAZIONE MAX » 7.1 KBYTE OCCUPAZIONE NIN » 6.7 KBYTE 
20 RER VERSIONE IN TI EXTENDED BASIC REALIZZATA DA :DAVIDE ROSSI 
VIA sPAGUBIOO RN. 62 C.A.P. 140155 BOLOGNA Y Po 
30 CALL MAGNIFY{4}:: CALL CLEAR 1: CALL SCREEN(S):: OR WARNING NEXT :: CR BREAK E - Basi L 
NEST 


30 GOTO 70 ss CALL CHAR ss CALL COLOR ss CALL SOUND ss CALL SPRITE :: CALL MOTIO 
Nor: CALL DISTANCE 13 CALL COINC +: CALL KEY 1: A,B,L6,C,RC,1,) 

5) 18,F4,A0,DIF,I :: CALL LOCATE 1: CALL PATTERN »: CALL DELSPRITE :: CALL POSIT 
TON !DEFINIZIONE DELLE VARIABILI E DEI SOTTOPROGRANNI USATI 

60 !8p- 

70 REM DEFINIZIONE DEI CARATTERI Vel 

80 T8=RPT6(*0",8):: FA=RPT&UF® 16) 

90 CALL CHAR(33,F6,42,F6) ‘SFONDO CIANO (33) ; SFONDO VERDE SCURO (42) 

160 CALL CHAR(9S, I88F6LZ68261F6) 

110 CALL CHARC104, I68%071F151F020303020303020300008080E0FAABFACO40COCOR0COCOC"| 
120 CALL CHARC2O, "0030181C3F1FO700"LI6LZS8Z68"FCFFO"878) 

130 CALL CHARCI24, "0030101C3F1FO705"LZ68768Z68"FCFFBOR4"&76) 

140 CALL CHAR(129, I6L'O2IFIBOO"LZ68"0ES56E3"828) 

t50 FOR X=0 TO 8 1: CALL COLORI, 16,1):: NEXT X 1: DISPLAY AT{12,5): "ATTERRAGGIO 
ASSASSINO” 

160 FOR A=i TO 20:: FOR B=0 TO 30 STEP 2 ss CALL SOUNDI-10,110,30, 110,30, 2500,30 
,-B,Biss CALL SOUNDI-10,110,30,110,30,4E3,30,-0,B)s: NEXT Bos NEITA 

170 CALL CLEAR ss PRINT "TORRE DI CONTROLLO A PILOTA": » "DEVI RIUSCIRE AD ATTE 
RRARE": ©"CON VELOCITA” VERT, = 1": 2°CON VELOCITA” QRIZZ, = 50° 

180 PRINT: :"SE LA TUA VELOCITÀ’ ORIZZON®: : "TALE DIVENTA INFERIORE A 50%: :"PR 
TNA DI ESSERE IN FASE DI": s ATTERRAGGIO VAI IN STALLO? 1» GOSUB 700 

190 PRINT»: s*5E NON TI VUDI SCHIANTARE": » "CHIUDI EVENTUALMENTE IL": »"CARREL 

LO E PORTA LA VELOCITÀ": «ORIZZONTALE SOPRA I 60% :: GOSUB 780 

200 PRINT +: 2"SE NON SEI SICURO DI RIUSCI": +"RE A FERMARTI PRINA CHE LA": :"P 
ISTA FINISCA AGPETTA CHE LA" 

210 PRINT "TORRE DI CONTROLLO RAGGIUNGA": s"IL LATO SINISTRO DEL VIDEO": 1030" 

POTRAI TENTARE L'ATTERRAGGIO": » "SULLA SECONDA PISTA DI CUI" 

270 PRINT :"L'AEREOPORTO DISPONE": sos ©"MA STA ATTENTO A NON FALLIRE": :"DI NUO 

VO" 3: BOSUB 700 +: CALL CLEAR 


230 PRINT "USA I SEGUENTI TASTI®: : :"CA > APRE IL CARRELLO": © :"CE > DECRE 
MENTA LA VELOC.": :TABCRI: "VERTICALE DELL'AEREO": : 3% X > LA INCREMENTA” 

240 PRINT : 1" 5 > DECRENENTA LA VELOC.": :TAB(G);*ORIZIONT, DELL'AEREO": : :° 
(DY LA INCREMENTA” :: GOGUB 700 

150 DISPLAY AT(H1, 1MERAGE ALL: "INSERISCI IL COEFFICIENTE DI": DIFFICOLTA” DESI 
DERATO®: ©"DIFFICOLTA” {1 - 30) 5° 1: ACCEPT ATIIS,20)VALIDATE(*123"):DIF 

260 Ri=i !NUNERO DELLA PISTA SU CUI SI TENTA L'ATTERRAGGIO 

270 REM INIZIALIZZAZIONI A :VELOCITA” VERTICALE DELL'AEREO 5 B sVELOCITA D 
RIZIONTALE DELL'AEREO 5 LG=i :SI E' APERTO IL CARRELLO 

280 A,LG=0 1: B=-75 1: CALL CLEAR :: CALL SCREEN(2) 

290 CALL COLOR(1,9,1,2,13,1):: FOR X=i TO 16 ss CALL HOHAR(I,1,33,32):: NEXT 1» 
+ FOR X=17 TO 20 ss CALL HCHARCX,1,42,32):: MENTI 

300 DISPLAY AT{1,10}:"PISTA NUMERO : "541 1: DISPLAY AT(3,10):"VELOC. VERT, 
1° or: DISPLAY ATIS,10):"VELOC, ORIZZ, »° 

310 CALL SPRITECE1,96,16,190,256,0,B) DEFINIZIONE DELLO SPRITE CHE DELINEA LA 20 
NA CENTRALE DELLA PISTA DI ATTERRAGGIO 

320 CALL SPRITE(£2,120,7,10,1,A,0)!DEFINIZIONE DELLO SPRITE DELL'AEREO CON CARRE 


LLO CHIUSO 
S30 CALL SPRITE(£S, 104, 2,110, 256,0,-DIF-1) !DEFINIZIONE DELLO SPRITE DELLA TORRE 


DI CONTROLLO 
340 FOR A=1 TO 40 12 CALL LOCATE(£2, 10, Xin: NEXT Y IPOSIZIONAMENTO DELL'AEREO IN 
QUOTA 
500 GOSUB 450 1: GOSUB 420 
560 CALL NOTIONICI,0,8,£2,A,0}:: CALL COIRC(£2,170,40,9,X):: CALL POSITIONIES,.I, 
Y} 
370 CALL COINCIEZ, 240,40, 16,C):o IF C=-1 THEN A=I sr CALL NOTIONIEZ,A,0)1: GOSUB 
420 1: GOTO 360 
380 IF YX=9 OR YI=248 THEN 500 ELSE IF ic}-i THEN 350 ELSE CALL NOTIOH(£2,0,0)n: 
IF A(=1 THEN IF LG=0 THEN 600 ELSE 640 
390 DISPLAY ATIZ, SISIZE(20]:"LA VELOCITÀ” VERTICALE E'" 1: DISPLAY AT(9,10}SI/E{ 
11}: "TROPPE ALTA" 
400 DISPLAY ATTIE,JS)}SIZE (20): "AUGRI SULLA PISTA INGRATA" »: GOTO 600 
310 IMAGE LEE 
4720 DISPLAY AT{S, 26): USING 4i0:A !STAMPA DELLA VELOCITÀ” VERTICALE 
450 DISPLAY AT{S, 26} +USING 410:-B-{B=1):: RETURN 'STAMPA DELA VELOCITÀ’ VELOCITA 
° GRIZZONTALE 
440 REA CONTROLLO DELL'AERES 
450 CALL KEY{L,A,Y}:: IF Xi AND L6=0 THEN CALL PATTERNI£Z,124]2: A=h#3 1: 8=842 
Oo rs L&=i 1: GOTO 470 !APERTURA DEL CARRELLO 
450 GOSUB 820 1: IF N=0 AND Y=0 THEN RETURN ELSE A=A-Y/4 1: B=B+1/4 
479 IF RC-5 DR AZIO THEN A=A-SGNIA) 
480 IF B>-50 THEN 550 ELSE RETURK 
470 REN SI E FALLITO L'ATTERRAGGIO SULLA PISTA | E SI TERTA QUELLO SULLA PISIA 
z 
300 CALL CLEAR 1: Al=AIF1 1: IF RI=2 THEN CALL NOTION(£2,0,0):: CALL POSITIONIEZ 
sk, f}:: CALL PATTERNI£2, 120}ELSE 530 
310 CALL DELSPRITE(£Ì,£3}:: DISPLAY ATIS,i}: "HAI FALLITO L'ATTERRAGGIO": » "SULLA 
PISTA NUMERO L":o sos "TENTA SULLA SECONDA PISTA": : +"E' LA TUA ULTINA POSSIDI 
LITÀ" 
320 FOR C=Y TO 205 ss CALL LOCATECEZ, INTESH,9), Cir = (2/(260-YA ni NEST Cn: 
R1=2 1: GOT0 270 
330 GUSUB 800 1: DISPLAY ATTIO,3):"NA GUANTE PISTE TI SERVONO": è 
ATTERRARE 22° 11 GUSUB 790 1: CALL CLEAR +: S070 759 
340 RES L'AEREO E" IN STALLO 
300 CALL CANCI7,1):: DISPLAY ATI, AIZ}BEEP SIZECIS): "AEREO IN STALLO” :: CALL MOT 
108{£2,0,0)1: CALL POSITIORI£Z,I,}) 
360 CALL LOCATE(£2,I, 40/1: CALL COINC{£2,170,40,2,0)r: CALL COIRCICI, 110,1,9,1}: 
s IF Y=-I THEN 500 ELSE IF I=-1 THEN 600 ELSE I=1#4 
370 CALL KEYII,I, fs: IF F=i AND LG=i THEN CALL PATTERNI£Z,120)}1: A=A-3 1: B=8-2 
203: LE=0 ELSE GOSUB 020 1: B=B4i/4 
380 IF 8-60 THEN CALL CARCI7,1):: RETURN ELSE CALL MOTIORIEI,O,B)n: GOSUB 450: 
: GOTO 540 
370 REM DISTRUZIONE DELL'AEREO 
600 CALL MOTIONICI,0,0,£2,0,0,£3,0,0)1: CALL SOUNDI[E3,-7,0) 
610 FOR I=1 TO 10 ss CALL SCREENIIG)1: CALL SCREENIZ)s: NENTI 


: :TABI8): “PER 


QU IF RECCO THEN DISPLAY AT{S,1):USING "IL RECORD E” DI EEEE PUNTI":RC ISTANPA 


DEL RECORD 
740 REN RICHIESTA DI CONTINUAZIONE 


"I 
fà 


GOTO 750 L'AEREO SI SCHIAN 


GOSUB 8001: 


620 CALL PATTERNI£2, 120)»: GOSUB 790: 


TÀ 


650 REN FASE DA ATTERRAGGIO CON RALLENTANENTO GESTITO DAL COMPUTER 


PER UN NUOVO LIVELLO": :TAB(9);"DI DIF 
SE VUOI CONTINUARE": » 


PELI 


750 DISPLAY AT{13,9)» "PREMI": » 


FICOLIA "13 1908) 


=A-2 01: CALL NOTIONI£2Z,A,0):: DISPLAY AT(7,1 


540 CALL CANC(7,1):: IF B<-50 THEN A 


850 SUB CANCIA, B) 
870 CALL HCHARtA, 1,33,3248) 


:°C N > SE VUOI SMETTERE" 


THEN 260 ELSE IF % 


GOTO 350 


RI? 1: 
650 DISPLAY AT(7,5)SIZE(19):"FASE DI ATTERRAGGIO* :: DISPLAY ATIP,1}:"ATTENTO è: 


= 


PBEEP: "SEI TROPPO VELOCE » RIMBALZI" 1: 


49 THEN 250 ELSE IF X<>78 THEN 


=93 


60 CALL KEY(0,X, Yi: IFX 
760 ELSE CALL CLEAR 


770 END 


- 
i 


980 SUBEND 


METRI* 
660 DISPLAY ATTTL,4)SIZE(ZI}: "ALLA FINE DELLA PISTA" 1: DISPLAY AT(20,3)»" RALLE 


NTAMENTO AUTOMATICO" 


MANCANG 


O THEN 780 ELSE RETURN ‘ATTESA DI CONTINUAZIONE 


780 CALL KEY{0,X, Vs: IF Y 


RETURN !CICLO DI RITARDO 


NET Ca: 


190 FOR C=1 TO 1000 1: 


CALL POSITIONIEI,Y,X) 


CALL NOTIONI£I,0,B)s: 
680 IF X3220 THEN CALL CANCU7,5):: 


D+) *: 
i BOTO 800 


70 B 


RETURN !SI CANCELLANO GLI SPRITE E LO SC 


CALL CLEAR»: 


900 CALL DELSPRITECALL):: 


HERMO 


DISPLAY AT(9,6)SIZE(18):"LA PISTA E’ FINITA? 


cRANE Davide! 


910 REN CONTROLLO DELL'AEREO CON I TASTI AsS:DiE:l 


560:"A 920 CALL KEYILLC, Vis: 


-i THEN 670 
DISPLAY AT(24 


GGGUB 430 1: IF RK 


690 DISPLAY AT(9,20)SIZE(-3):USING 410:Xc: 


4 THEN 130 ELSE IF C=2 OR C=3 THEN Y=0 ELSE 1, 


=) OR E= 


IF LC 


700 CALL MOTION(E1,0,0,£2,0,0,£7,0,0):: CALL DELSPRITE(£I)»> 


RETURA 


Y=0 1: 


GOSUB 770 1: GOSUB 800 


{ER/RI)#10)#1-{DIF=1)-1,74(DIF=2)-5,34(DIF 


TTERRAGGIO RIUSCITO" »: 


H10 4 


4 ELSE IF C=2 THEN X=4 ELSE 1=-4 


O THEN Y=-4 ELSE IF C=5 THEN Y 


940 RETURN 


930 IF CL 


RC=MAX (RC, X) CALCOLO DEL 


3)):: 
PUNTEGGIO TOTALIZZATO IN BASE AL COEFFICIENTE DI DIFFICOLTA” 


I TOTALIZZATO EEEE PUNTI":X !STANPA DEI PUNTI TOTA  gso iep+ 


A 
Lai 


720 DISPLAY AT(2,1):USING *H 


LIZIATI 


a] £ 


[] 


fa 


LÌ 


la 


|] > 


SI 


100 
110 
20 
30 


CALL CLEAF 

PRINT "DORGUE A MEMOIRE" 

DEF HeN3=INT <£9654-N0 #31+0,53 
i; DIM Al, 321 Cl900 

4140 CALL CHAF 122 "0004 040410303 
C1S"3 


150 DATA SHlilsdrr fac? sf I ita 
415 girini pets dd sei Sila 294 
, 220,9 sap i 9, 3491 690, 7944 262 


(Sar 223,740 220 

150 FOR Isili TO 26 

if READ CcI+64) 

190 MEST I 

190 M=i 

200 REM 

CIO KH=d 

220 CALL SDUND (4 00,44 a 53 
230 CALL gian 
240 IF NOUY=0 THEN 235 

250 IF T=45 THEN: 320 
260 CALL HCHAR CH ceh Ms N03 Ho 023 
cri N=H-1 

220 FOR DEL=1 TO SU 

290 NEST DEL 

2300 60710 230 

310 REM 


sed IF T4 
330 H=H+t1 
340 AMM 340000 

350 CALL HCHAR 21sHN9350 
360 G0T0 4350 

370 IF T£65 THEN 230 

350 IF T=90 THEN 200 

390 H=H+1 

400 AM Hi=C To 

410 CALL HCHAE Her Ms Hi as Hi 1253 
420 CALL SOUND 3008 A Me NI 003 
430 IF N530 THEN 2350 

440 IF M=35 THEN S20 

dI Ò INFUT “AUTRE MOUVEMENT  “DeHi 
F'iRt 

460 IF Ris LA 
4FO IF RE 
430 M=td+1 
490 CALL CLEAR 
500 GOTO 2iu 
210 KEM 


322 THEN 370 


THEN 520 
"O" THEN 450 


eta) 
civ e 


S[]t 


DL) 


ré 


espace 


C__] 


silence 


ig 



















ORGANO SUL TI 


520 INFUT "ECOUTE MDUVEMENT 5) « 
ON) È “1R$ 

530 IF R&= La THEN #20 
540 IF R3:3"0" THEN S2e0 
550 INPUT “DUREE DE CHAGUE NOTE 
(SEC.3 " DUREE 
560 IUREE=DUREE#S60 
570 INFUT "VOLUME «1 H 
9530 VOL=?-VOL 
590 REM 
5Uu FOR P=1 TOM 

610 CALL CLEAR 
520 FOR N=1 TO 30 
620 IF AfPsHi=40000 THEN 650 
640 CALL HCHAR CHA PN is Nel 25) 
650 CALL SOUND DUREE: A CPN YOLI 
660 NEST N 
670 NEZT P 
550 REM 


“VOL 


af 


690 IMFUT “ENCORE <OFN37 "iR$ 
700 IF RE="0" THEN 530 


IFREO" 
STOP 


710 N” 


= 
fi O 


THEN 690 
















5 CALL CLEAR 
10 A$ = “FFFFFFFFFFFFFFFF” 
20 B$ = ‘“0000000000000000”’ 
30 CALL CHAR(34,A5) 
40 CALL CHAR(33,BS) 
50 CALL COLOR(1,12,2) 
60FORK=1T04 


TUY=5 
80FORI=1T016 
90 READ N 
100N = INT(N/2) 
110X1=1 
120FORJ=1TON 
130 READ X2 
140 CALL HCHAR(Y,X1+3,33,X2-X1) 
150X1=X2 
160 READ X2 
170 CALL HCHAR(Y,X1+3,34,X2-X1) 
180X1=X2 
190 NEXT J 
200 X1 = X2 
210 CALL HCHAR(Y,X1+3,33,15-X1) 
220Y=Y+1 
230 NEXT | 
240 NEXT K 
250 RESTORE 
260 GOTO 60 
270REM NUMBER ONE 
300 DATA 3,10,12,5,3,5,10,13 


310 DATA 5,1,5,10,14,7,1,6,7,8,9,14 
320 DATA 3,1,14,3,1,14,3,1,14 

330 DATA 3,1,14,3,2,13,3,3,12 

340 DATA 7,1,6,7,8,9,14,7,1,6,7,8,9,14 
350 DATA 7,1,6,7,8,9,14,5,1,6,9,14 
360 DATA 5,3,5,10,13,5,3,5,11,13 
370REM NUMBER2 

380 DATA 5,4,5,10,11,5,3,5,10,12 
390 DATA 5,2,5,10,13,7,2,6,7,8,9,13 
400 DATA 3,2,13,3,2,13,3,2,13,3,2,13 
410 DATA 3,3,12,3,4,12,7,2,6,7,8,9,13 


420 DATA 5.2,6,9,13,5,2,6,9,13,5,2,6,9,13 


430 DATA 5.3,5,10,12,5,3,5,11,12 
440 REM _NUMBER3 





HaNyNBEn2 
Alti 
Ag 
CI ONNAANNSIAT 












450 DATA 5.4.5,10,11,5,3.5,10,12 

460 DATA 5.3.5,10,12,7,3,6,7,8,9,12 

470 DATA 3.3,12,3,3,12,3,3,12,3,3,12,3,4,11,3,3,12 
480 DATA 7.3.6.7,8,9,12,5,3,6,9,12,5,3,6,9,12 

490 DATA 5.3,6,9,12,5,4,5,10,11,5,4,5,10,11 

500 REM _ NUMBER2 

510 DATA 5,4,5,10,11,5,3,5,10,12 

520 DATA 5,2,5,10,13,7,2,6,7,8,9,13 

530 DATA 3.2.13,3,2,13,3,2,13,3,2,13 


540 DATA 3,3,12,3,4,12,7,2,6,7,8,9,13 
550 DATA 5,2,6,9,13,5,2,6,9,13,5,2,6,9,13 
560 DATA 5,3,5,10,12,5,3,5,11,12 


ExA4hA 


100 CALL CLEAR 

110 A$ = ‘‘383810387CBA386C” 
120 B$ = ‘‘3838927C3838FE00” 
130 C$ = ‘“‘0000000000000000" 


140 CALL CHAR(33,A$) 

150 CALL CHAR(34,B$) n x 
160 CALL CHAR(35.C9) = OPTIO NE 
170FORI=3T027 7185FORJ=1T0250 
180 CALL HCHAR(10,1,33) «186 NEXTJ 


190 CALL HCHAR(10,1,34) 195FORJ=1TO 250 
200 CALL HCHAR(10,1,35) 196 NEXT J 
210NEXT | | 

220 GOTO 140 
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DR CALL CLEAR \ 
6 RET=0 
ni 
130 Ri=é sl Î 1 (hh 
140 C0=7 Dia 
150 GOSUB 250 N L o 7 vi i i 
150 U#="IL TUBOLARIO* 
ML NA di jin Mo ni 
180 CI=iò \ | a ) 
il Ì il 
190 GO5UB 250 fui (i U \) cl 
200 U#="ovwera lo frasi del tubo" ì "N sla i 
210 RI=i4 \ I al \ 
| i D \° \ \ LI 
230 GOSUB 250 ì Hi A À uf Ù 
246 GOTO 210 d 
256 FOR EK=i TG LERIUS) | 
en IFOASCISEGRIUS, KE, 1}}=3i THEN 290 | ill ul 
280 CALL SOURDI10, 1500,0) il 
290 NEXT KK N 
300 RETURN 
320 RANDONIZE ti MIOMINOI lit Lil i | 
330 HA=ENT(RND#700)+110 AULE 
330 RENT 00 
360 CALL CLEAR 
590 CALL S0UNDI200, 1000, 0,500,4) 
390 FOR ESI TO 900 
410 PRINT “Non cl credete 7 Provato è presere un tasto"i:::; 
320 PRINT 1:°P.5, se vi stancato presete Ne io saetto,.ciao” 
440 CALL KEYIO,K,5) 
450 IF S=0 THER 440 
di PRINI “Siienzio sto pensando”: 
s59 FOR OASI T0 20 


in U$="FRANCONPUTER PRESENTA” 
i 
176 RI=i0 
220 CO=4 
250 CALL HCHARIRI,CO+KK,ASCSEGS (46, KK, 11) | sar # i 
310 FOR 0050 70 20 hi 
340 CALL S0UNDC100,HH,0,H##100,4,kH#40,2) sim tinum mII ul 
370 PRIRT “Ciao gente,lo sapete che ai sono dato alla politica Pini: 
400 HENT K 
450 CALL SOUND{300, 500,4, 1000,0) 
ibi DALL CLERR 
496 CALL S0UND(S0,220,0,-0,0) 


valfi Lea ae 


300 CALL SOUND (650, 270,8,-9,0) 

GIO HEST K 

220 CALL CLEAR 

G30 CALL SCREENIO) 

G40 FER PP=I TOA 

550 CALL COLORIPP,2,8) 

360 HEIT PP 

CH ODIA A&CIO),B$f10},C$(10) Déilo), E#(i0) FF&IIO), G#((0) 

390 RANDONIZE 

393 RESTORE 640 

600 I=IRTIANDFIG}+i 

Sii FOR ESI T9ÎÌ 

dii (CRD AGC) 

510 REIT E 

540 DATA L'utenza potenziale, ii bisogno emergente, Il quadro norgativo,L'indicazi 
one della base 

550 DATA JI nuovo soggetto sociale, L'approccio prograssato, L'assetto politico is 
tituzio nale 

560 DATA Il criterio setodologico, i! aodello di sviluppo,il setodo partecipativo 
670 RESTORE 720 

636 F=INTIRADE[O}+i 

#90 FOR TSI TOT 

FG READ BAff) 


FIGOHEET TI 


oi ATA se leon 1 ap ib x - nes iran: mi<as;es ° disr= « smise; 
PE Dnih auspica,Si Carauierizza per ,priviieggia,prefigura,Ficonduce è Sintesi, 


Bis] 


OTT 
5° pappa 


TI P-THT IGEA PHhRi 14 
740 I=IRTIFNDEID]+] 
TRS PESTORE 798 
dea 3 bl 3 slide t rd 


796 DATA la puntuale corrispondenza fra obbiettivi e risorse,la verifica critic 
a deoli obbiettivi istituzionali 
900 DATA il riorientasento delle 
delie funzioni decisionali 
Gi9 DATA la ricognizione del bisogno easraente e,la riconversione ed artico» laz 
ione periferica del Servizi 
820 DATA un coretto rapporto fra 
della logica preesistente 

G30 BAIA il superamento di ogni osta-colo e/o resistenza, un organico collegaaent 
o interdisciplinare 

640 RESTORE 39) 

30 G=INTIRND#I0)+1 

860 FOR R=I 702 

70 READ D6(d) 

956 NEXT R 

690 DATA nel prisario interesse della popolazione, senza pregiudicare il livel-lo 


linee di tendenza in atto,il decentrasento 


struttura e sovrastruttura,ii ribaltaaento 


Cale 


ei 


delle prestazioni 
900 DATA al di sopra di interessi e pressioni di parte,secondo un sodulo di int 
Er- dipendenza orizzontale 
910 DATA in una visione organica e ricondotta a unita”,con criteri non dirigis 
tici 
920 DATA al di la'delle contradizioni e difficolta'imiziali,ia aaniera articolat 
a e non totallzante 
750 DATA attraverso i seccanisai 
delle risposta 
740 RESTORE 990 

790 RASINTIRNDFIO]+1 

360 FOR R=i TO AA 

970 READ ESIRÀ! 

S90 NESTR 

550 DATA attivando ed iaplesentando, sostanziando e vitalizzando recuperando ovve 
ro rivalu-tando 

1000 DATA ipotizzando e perseguendo, non assusendo sai cose iaplicito,fattualizan 
do e concretiz-zando 

1010 DATA non sottacendo aa anzi 

o,non dando certo per scontato 

1020 DATA evidenziando ed esplicitando 
1030 RESTORE 1090 

1040 AB=INTIRND#10]+1 

1000 FOR R=i 10 AB 

1000 READ FFRIAB) 

1076 NEST R 

1530 DATA in un ambito territoriale  csogeneo ai diversi iivelli,nei rispetto d 
ella norsati- va esistente 

1090 DATA nel contesto di un sistesa integrato, quale sua presessa indispen-Sabi 
le e condizionante 

1100 DATA nella sisura in cui cio’ sia fattibile,con le dovute ed iaprescindibii 
i sottolineature 
IHÎO DATA in teraini di efficacia e di efficenza,a sonte e a valle della situazi 
one contigente 
1520 DATA nei teapi brevi anzi brevis-sisi,in un ottica a priori e non a posteri 
ori 
1150 RESTORE 1180 

114G AC=IRT(RND#10)+! 
1550 FOR R=i TO AC 

150 RERD GSIAC) 
1576 REST R 


della partecipazione, senza precostituzione 


nuntualizzando, potenziando ed incresentand 


merca 
Lene.) 
= 
Led 
Lord 
enza 
Ditteri. 
ia 
vio 
vira 
ere 
lonza 
[ion] 
arr 
preset] 
[ins | 
tra 
creed 
seme 
e 
E 
eve) 
Li 
be” 
seesai 


1560 CALL KEY(0,K,5) 


19/0 IP 5=0 THEN [G60 


1500 IF RET 


1 
f 


9 THEN 1630 


1590 IF K=79 THEN 1595 ELSE 520 


157 









340 US= "TEXAS TI" d 


13 


dell 


90 DATA un indispensabile salto di qualità’.,una congrua flessibilità’ 


e strutture. 


ii 


1590 GOTo ISio 


1560 US="TEXAS TI" 


t attivo di op 


nvolgiaento 


one, ,il coi 


ghet- tizzazi 


1190 DATA l'annulasento di cani 





0 GOTo [Sio 


1390 U$ 


Linto 
Una 
ese 


eratori e utenti, 


“TEXAS TI" 


1200 DATA l'appianasento di discrepan-re e discresie esistenti.,la ridefinizione 


31310) 


370 G0T0 1510 


19 
?_% 
è w 


nroffessionale. 
O DATA l'adozione di una setodolo- gia differenziata. ,ia deaistificazione del 


d 


di 


di una nuo-va figur 


IH) 


—__Tr ———————errr—— 


1400 {&="TEXA5 TI" 
1452 G070 I5l0 


1420 US 


3 


17 
id 


linguaggio. 
1720 DATA la trasparenza di ogni atto decisionale, la confluenza verso obbiet- È 


ivi CORUnI, 


STERAO TI" 


1450 6070 15/0 


CALL CLEAR 


E 
ui 


1600 PRINT “SONO STATO BRAVO, ANZICHENO.,  BRAVISSINO/VI!IIIFIt*10, 


1620 CALL SOUND 


300, 1000,0,242,0,349,0) 


d 


{ 


3L3}}3h 


PER LA NISER 


1640 PRIRT "ADESSO BASTA CI HAI STUFATO CON QUESTI DISCORSI, 


IRPPETEIRia aa 


} 


500,-5,0 
5} 


ti) 


1630 CALL SOURDI 


da 


= 
Li 
sé 


1660 CALL SOUNDIZZO, -i 


,0,242,0,1000,0) 


CALL SOUND {400 


1863 


15/0 END 








1480 US= "TEXAS TI" 
1850 GOTO IGlò 


45; 
188 


}: 
de 


ti 
î 


1230 CALL SGURI 


200, 262,0) 


1240 CALL S0UND(200, 145,0) 


O U8="TEXAS TI" 


1250 CALL SOUNDIZ0O, 445,0) 


a 


1470 GO0T0 [Sio 


260 CALL S0UNDI 200, 034,0) 


Ì 





1} SYXIj TY 


1800 US="TEXAS TI 


CSI}: BE COL: E5CAA)3FFE(ABI:68 (AC): 


INT(RNDELL)+1 
1200 ON PL GOTO 1300, 1720,1340, 1340, 1390, 1400, 1420, 1440, 1460, 1490, 1500 


ts 
1300 US="CRAXI* 
1550 GOTO [Sig 


1280 P 


fi 
1 
L° 


) US="TEXAS TI" 


190 


1510 RI=24 


=20 


1520 CO 


1550 GOSUR 250 


"TEXAS TI" 
GOITO Igld 


1320 U$ 


Ì 








43 RET=RETA! 


E 
2 
w 


Ì 


Leste) 
noi 
men 


100 CALL CLEAR 
110 PRINT "FRANCOMPUTER" 


120 PRINT 

iZìi FRINT EX. BANC 
130 PRINT "PRESENTA" 

140 PRINT 

150 PRINT "BATTLE ST&E" 

1910 PRINT @IeteiéiéoeOIM]IMMMTTT]!ÈÈ 

ia FRINT 

160 PRINT 

i6i PRINT 

1652 PRINT 

170 PRINT "USA LE FRECCE FER COLPIRE LEASTRONAVI CHE VOGLIONO ATTACCARTI., FAI ATT 
ENZIONE ALLA RAPIDITÀ" E AL COORDINAMENTO, " 

160 FUR WAL[T=0 TO 13500 

190 NEXT WAIT 

200 REM EEKEFKKKKKKKKKKK 

Zi0 REM * * 

220 REM * BATTLE STAR * 

Za50 REM » # 

Z40 REM FEEELEKEKKEKKKKT 

290 REM FRANCOMFUTER 

260 REM 99"ER VERSION 1.6.1XE 

270 RANDOMIZE 

#00 DIR=i ss: CALL CLEAR 

270 CALL COLORIS, 7,1}: CALL COLORCIO,&, 1) se: CALL SCREENI(2) 

200 CALL CHAR (968, "0000000000070707") 1: CALL CHAR97,"1818195C7EFFDE9Y9") 

3410 CALL CHAR 79, "OODO0D0O0d0ED0EOEO"): CALL CHAR(99, "O70£1CFFFF1CORO7") 

320 CALL CHAR 104, "194235C99995C4218") rs CALL CHARCIOL, "EO70G0FFFFOS70£0") sr CALL 
CHAR CIO, "O70707") 

350 CALL CHARCIO7Z, "104629240A9213044") 

34 CALL CHAR<105, "99DBFF7E35C1891818");: CALL CHAR(100, “"EDEOEO") 

2030 CALL CHARC112,"30797C47707950") rr: CALL CHARGIIS, "idiosgeCEEEE7C"ì 

360 CALL CHAR(114, "OCIESEEZSE1E0C") :: CALL CHAR (115, "007 CEEEE6C3581010") 

370 CALL CHARC11ò, "1DIO0s5pFESSIO1LO") rr CALL CHAR117, "O000016SCFEF 752442") 

580 CALL CHARfC{10S, "18181910919181913") si: CALL CHARCIOG, "ODO00Q00FFFF") 

390 FOR COL=I TO 12 rn: CALL COLORICOL,iò,1):: NEXT COL 

400 L=100 rr S35 sr SC=0 1: SAL,SBI, 5A2,582,5A35,9B35,9A4,5B4=0 se T=0 

410 GOSUB 450 

420) GISUB 490 is: GOSUE 750 ( Le LA 

450 L=L-.5 sr IF LeAl THEN L=l 

440) DISPLAY AT(24,3):SC rs: GOTO0 420 | 

450 CALL SPRITE(£IO, 24, 16,81,115,0,0,£11,97,16,81,121,0,0,£12,98,16,61,129,0,0) 
e CRI SPRIFTESELA, 97,16, BA Lib a Da E Pg 08, 7 7 ida Da a DO 6 07 Aa Vi 

4/0 LRLL SPRITESEI Db, 40, bi PZ 4 LI a 7 bel, a EL, PO, 164 F7,4 Ta 

0) 

490 RETURN 

490 CALL KEY C(0,E,5) sr IF S=0 THEN RETURN 

300 IF E=69? THEN 550 

510 IF K=S3 THEN &00 

3920 IF KE=88 THEN 650 

30 IF K=689 THEN 700 

340 RETURN 

d00 IF SA1=0 AND SBi=t THEN CALL VCHARGI,ié6,105,10):: CALL SOUNDILO, 800,0): CAL 
iL VCHAR1,16,32,10)cs SC=SC-10 ss RETURN 

9% 1F SBi=0 THEN CALL VCHAR(2,16,105,9):: CALL S0UND(500,110,2,-5,2)s: CALL VCH 
ARC2,18,32,9)t: SU=SC+50 it: SAI=O ss RETURN 

2470 CALL POSITION(£I,F1,P2)ss. IF P1376 THEN 940 

00 Pi=INT(P1/0)+1 1: CALL VCHARI(PFI, 165,105, 10-P1)s: CALL SOUND(Z00, 110, 10,-5,0): 
® CALL VCHARIPI, 16,32, 10-P1) 

590 CALL DELSPRITE (fi): SC=SC+20 i: SRi=0o «: RETURN 


600 IF SAZ=O AND 582=0 THEN CALL HCHAR (12, 1,1064114) :: CALL SOUND(10,800,0):: CAL 
L HCHAR(12,1,32, 14): SC=SC-10 :: RETURN 

610 IF SB2=0 THEN CALL HCHAR(12,3, 106,12): CALL SOUNDI(S00, 110, 2,-5, 2): CALL HC 
HAR (12,3, 32,12): 5SC=SC+50 si: 5A2=0 :: RETURN 

620 CALL POSITIONi(£2,P1,P2):: IF F2:86 THEN 940 

650 P2=INT(P2/8)+1 :: CALL HCHAR(12,F2,106,15-P2):: CALL SOUND (200, 110, 10,-5,0): 
s CALL HCHAR{12,P2,52,15-F2) 

640 CALL DELSPRITE(£2):: SC=5C+20 1: 582=0 ss: RETURN 

650 IF SA3=0 AND SB35=0 THEN CALL VCHAR(14, 16,105, 10): CALL SOUND(10,800, 0) 1: CA 
LL VCHAR(14,16,32, 10) 1: SC=SC-10 :: RETURN 

660 IF SB3=0 THEN CALL VCHAR(14,16,105,10):: CALL SOUNDI{S00, 110,2,-5, 2): CALL V 
CHAR (14, 16,352, 10): SC=SC+50 :: RETURN 

670 CALL POSITION(£3,P1,P2)s: IF Piclio AND FiSO THEN 940 

680 PI=INT(P1/8)+1 1: CALL VCHAR(14,1é,105,P1-14):: CALL SOUND(200,110,10,-5,0): 
: CALL VCHAR(14,16,352,P1-14) 

5690 CALL DELSPRITE (£3) rr SC=5C+20 ss SB3=0 :: RETURN 

700 IF SA4=0 AND 5B4=0 THEN CALL HCHAR({12,18,106,14) i: CALL SOUND(10,800,0) 1: CA 
LL HCHAR(12,18,32,14):: SC=SC-10 :: RETURN 

710 IF SB4=0 THEN CALL HCHAR(12,18,106,13):: CALL SOUND(S00, 110, 2,735, 2): CALL H 
CHAR(12,18,352, 13): SC=SC+50 1: SA4=0 :: RETURN 

720 CALL POSITION(£4,F1,FP2)s: IF P8142 AND FESO THEN 940 

730 P2=INT(P2/8):: CALL HCHAR(12, 189, 106,P2-15):: CALL SOUND(200, 110, 10, -3,0):: C 
ALL HCHAR(12,18,32,P2-15) 

740 CALL DELSPRITE(£4) ss 5C=5C+20 rt: 5B4=0 :* RETURN 

750 IF SBi=0 THEN F1,F2=0 si: GOTO 760 ELSE CALL FOSITIONI£I,F1,F2) 

760 IF SB2=0 THEN P3,P4=0 ss: G0T0 770 ELSE CALL FOSITIONI£Z,Pa,P4) 

770 IF SB35=0 THEN PS,F6=0 i: G0T0 780 ELSE CALL FOSITION(£3,P5,F6) 

780 IF SB4=0 THEN P7,P8=0 ss GOTO 790 ELSE CALL POSITION(£4,P7,P8) 

790 IF Fi:76 OR FP4>86 OR(FSC110 AND FS:0)0R(F8£142 AND F830) THEN 940 

900 N5S=INT(RND*L)s:: IF NS>10 THEN RETURN 

S10 NS=INT(RND*4) +1 :: ON NS GOTO 850, 860,990, 720 

820 IF SAI=i AND SBi=1 THEN RETURN 

950 CALL HCHAR (2, 16, 115): SASSI cs: IF Leé890 AND SB1=0 THEN CALL SFRITE(£1, 116,7, 

17,120,11-(L/10),0):: SBi=l 

840 RETURN 

9509 IF SA2=1 AND SE2=2 THEN RETURN 

860 CALL HCHAR(12,3,112):: SASSI i: IF LE80 AND SB2=0 THEN CALL SPRITE(£2,1168,7, 

88, 17,0, 11-(L/10)):: SB2=1 

970 RETURN 

890 IF SAS=1 AND SB35=1 THEN RETURN 

990 CALL HCHAR(23, 16, 1135): SAS=I cs: IF LA80 AND SB3=0 THEN CALL SFRITE(£35, 116,7 
s Liegi, 1140/1071 .,0)% SBSSÌ 

200 RETURN 

910 IF SA4=1 AND SB4=1 THEN RETURN 

920 CALL HCHAR(12, 30,114): SA4=I :: IF La80 AND SB4=0 THEN CALL SFRITE(£4, 116,7 
1989, 216,0,-11+(L/10)):: SB4=1 

930 RETURN 

940 CALL DELSPRITE(£1,£2,£35,£4):: CALL SOUND(Z000, 110,2, 220,2, 1000, 30,74, 2) 

950 FOR BUB=10 TO 19 :: CALL MOTION(£BUB, INT (RND#40) 20, INT (RND#*40) 20): CALL P 
ATTERN(£BUB,107):: NEXT BUB 

960 CALL SOUND(1000,110,2,220,2,110,2,75,2):: CALL SOUND(1,40000, 30) 

970 CALL DELSPRITE(ALL):: CALL CLEAR 

9899 DISPLAY AT(12,7): "FATTO FUNTIO ": TAB(10) 5 5C 

990 CALL DELSPRITE(ALL) 

1000 DISFLAY AT(22, 1): "VUOI GIOCARE ANCORA 2? (YN)." 

1010 ACCEPT AT (235,8)VALIDATE("YN"):ANS$ 1: IF ANS$="N" THEN 1050 

1020 CALL CLEAR :: GO0SUB 450 rs: SC=0 1: L=100 

1050 S5B1,5b2,5B3,5B4,P1,P2,P3,P4,P5,PA,P7,FP8=0 

1040 RETURN 

1050 END 


100 
LIO 
120 
130 
140 
150 
160 
170 
180 
190 
200 
ZIO 
AZO 
ZIO 
240 
Zali 
260 
270 
240 
290 
300 
alo 
AZ 
dI 
340 
Sol 
60 
370 
S90 
390 
400 
DIO 
420 
430 
44%) 
450 
440 
470 
481) 
490 
J00 
S10 
al 
SI 
2940 
JO) 
360) 
370 
5890 
590 
600 
lo 
620 
SO 
440 
690 
db tl 
6/0 
690 
590 
700 
Z10 
720 
30 


LALL 
CALL 
PRINT 
/=3 
A=ZOO 
C=300 
E=400 
D=500 
P=50 


CLEAR 
SCREEN (14) 


| basic | 


K=40000 


REM 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
REM 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


K*kkkt* PRIMA FExxk 


SOUND (250, k,V) 
SOUND (C, 440, V) 
SOUND (PE, V) 
SOUND (2, 440, V) 
SOUND (FP, E, %) 
SOUND (C, 406, V) 
SOUND (P_k,V) 
SOUND (C, 523,4) 
SOUND (P_ E, V) 
SOUND (C, 523,4) 
SOUND (P,E,V) 
SOUND (C, 456,4) 
SOUND (P,E,V) 
SOUND (C, 440, V) 
SOUND (P_E,V) 
SOUND (C, 392, V) 
SOUND (PE, 4) 
SOUND (C, 349,4) 
SOUND (F,k,V) 
SOUND (C, 349, UV) 
SOUND (P.K,V) 
SOUND (C, 392, V) 
SOUND (P,E,V) 
SOUND (C, 440, V) 
SOUND (P,K,V) 
SOUND (E, 440, V) 
SOUND (75, k,V) 
SOUND (A, 392,4) 
SDUND (FP, K,V) 
SOUND (D, 392,4) 
SOUND (75, k,V) 


*kx** SECONDA x** 


SOUND (C, 440, V) 
SOUND (P,K,V) 
SOUND (C,440,V) 
SOUND (F,k,V) 
SOUND (C, 466, V) 
SOUND (P,k,%) 
SOUND (C,523,V) 
SOUND (PE, V) 
SOUND (C, 523,4) 
SOUND (F,k,V) 
SOUND (C, 466, V) 
SOUND (FP, K,V) 
SOUND (C, 440, V) 
SOUND (P, E, V) 
SOUND (C, 392, V) 
SOUND (P,k,V) 
SOUND (C, 349, V) 
SOUND (FP, k,V) 
SOUND (C, 349, V) 
SOUND (F, E, V) 
SOUND (C, 392,4) 






OMAGGIO A BEETHOVEN 











740 CALL SOUND (F,E,V) 
750 CALL SOUND (CC, 440, V) 1340 CALL SOUNDIP.,E,M) 
760 CALL SOUND (P,k,v) 1550 CALL SOUND(A,466,4) 
770 CALL SOUND (E, 392,4) 1360 CALL SOUND (40,K,V) 
7930 CALL SOUND(75,E,%) 1370 CALL SOUND:A,392,V) 
799 CALL SOUND CA, 349,4) 1380 CALL SOUND iF,k,v) 
800 CALL SOUND (P,k,v) 1390 CALL SOUND(C,349,V) 
GIU CALL SOUND (D, 349, V) 1400 CALL SOUND(F,K,%4) 
920 CALL SOUND (75, kV) 1410 CALL SOUNDI(C, 349,4) 
830 REMO «#*#* TERZA ##*#* 1420 CALL SOUND(F.K,V) 
840 CALL SOUND(C, 392,4) 14350 CALL SOUND(C, 392,4) 
950 CALL SOUND (P,K,vV) 1440 CALL SOUND(P,E,v) 
850 CALL SOUND(C,392,V) 1450 CALL SOUND (C, 440,4) 
870 CALL SOUNDIF.,K,V) 1460 CALL SOUND(F,k,v) 
990 CALL SOUND IC,440,V) 1470 CALL SOUND(E,392,V) 
990 CALL SOUND (P,E,%) 1480 CALL SOUND(75,E,V) 
900 CALL SOUND(C,349,V) 1490 CALL SOUND(A, 349,V) 
9710 CALL SOUND (P,k,v) 1500 CALL SOUND iF,k,V) 
F20 CALL SOUND IC, 392, Vv) 1510 CALL SOUND(D, 349,V) 

30 CALL SOUND (F,k,V) 520 CALL SOUND (250,kK,V) 
940 CALL SOUND(A,440,V) 1530 FOR I=0 TO 400 
950 CALL SOUND(40G,kE,V) 1540 NEXT I 
960 CALL SOUNDIA, 466, V) 1550 C&LL CLEAR 
970 CALL SOUND (F,K, Vv) 1560 CALL SCREEN({184) 
990 CALL SOUND (C,440,V) 1570 PRINT " Inno alla Gioia” 
990 CALL SOUND (F,k, Vv) 1580 FRINT PRESICCE e 
1000 CALL SOUND (C, 349, V) 1590 PRINT 

1010 CALL SOUND P,E,V) 1600 PRINT " Beethoven " 
1020 CALL SOUNDIC, 392,0) 1610 FOR WGIT=9 TO jP0i «@NMNSIENAND 
1030 CALL SUUND(F.,K,v) 1520 NEXT WAIT 

1040 CALL SOUND A, 440,V) 165560 CALL CLE&R 

1050 CALL SOUND (40, E,4) 1540 CALL SCREEN(16) 

1060 CALL SOUND I(A,4060,V) 1650 FRINT " PRESENTATO DA :" 
1070 CALL SOUND (Fk, V) 1660 PRINT " 

1080 CALL SOUND (C,440,V) 1670 PRINT TTT 
1090 CALL SOUND (P, E, V) 1680 PRINT " FRANCOMPUTER 11” 
1100 CALL SOUNDI(C, 3592, V) 1590 FOR NAIT=0 TO 1200 

1110 CALL SOUND(P,K,V) 1700 NEXT WAI 

te La e 1710 CALL CLEAR 

30 CALL SOUND (F,k,% 7209 E i 

1140 CALL SOUND(C,392,V) iattealintaà ( Loto A00) 

1150 CALL SOUNDiF,K,V) 

1160 CALL SOUND {C, 262,4) 

1170 CALL SOUND(100,K,V) 

118980 REM +*X##t QUARTA sEEXEXX ° n ; Ch) “ -_ 
1190 CALL SOUND (C,440,V) SU ELISA Ai SAU 
1200 CALL SOUND(40,k,V) PIBDUCATO 5U QNIKA 2 
1210 CALL SOUND (C,440,V) LEUNALANO: 

1220 CALL SOUND (P,K,V) | Pi 

230 CALL SOUND (C,440,V) 920 FOR 1=4 fo 3 

1240 CALL SOUND(F,E,V) 380 FoR I=A To 3 

1250 CALL SOUND(C,466,V) $%0 FoRI=4 To 8 

1260 CALL SOUND(P,K,4) 1960 AL fd0%0 DI 131% < (64 
1270 CALL SOUND(C, 525,4) | U/ 
1280 CALL SOUND (F,k,V) AZo la fab.(A0); "leg ELISA' 
1290 CALL SOUND (C,523,V) | 
13500 CALL SOUND iF,kK,V) unto 

1310 CALL SOUND(C,466,V) Manara Sa Giara sao‘) 
1320 CALL SOUND (P,k,V) ALA STONATURA! 
1530 CALL SO0UND(C,440,V) 


LOO 
110 
Lal 
1350 
140 
190 
160 
170 
180 
190 
Z00 
ZIO 


REM +** FRANCOMPUTER ** 
REM x** + 
REM ** MUSICA DA XK 
REM +** TASTIERÀ x* 
FPEM XAKKEKKKKEKKKFKKKrKrXX 
CALL CLEAR 


PRINT "* ALPHA LOCE IN GIU!" 
FOR X=i TO 1000 | BASIC | 


MEXT X 

CALL CLEAR 

PRINT “SUONIAMO CON LA TASTIERA": EKFEEFEEFELFEFEEKEFEEFErrrrte!! 

PRINT "NOTA TASTO i NOTA TASTO": "LA N i LA di: 81 la i 


"5: "DO z| DO pu 


220 
230 
OUTA 
240 
Lu 
260 
270 
290 
290 
300 
SLO 


PRINT : "RE X : RE D'si "MI # 1.» "FA V ! FA Gi: 
PRINT "SOL BE SOL H"ssi: "QUALUNQUE ALTRO TASTO RIPETE": "L'ULTIMA N 
EMESSA" 

DIM REALTONE (12, 2) 

LASTBYTE=0 

FOR I=i TO 12 

READ A,B 

REALTONE (I, 1)=f 

REALTONE (1,2)=B 

NEXT I 

DATA 78,440,74,466,77,494,90,262,93,277,89,294,69,311,67,330,86,349,71,370,6 


6, 392,72,4815 


Gel 
330 
SAL) 
Sol 
360 
370 
390 
390 
400) 
410 
420 
4a) 
440 
490 
dida 
470 
490 
490 
300 
J10 
520 
330 
2340 
ere 8 
360 
370 


All. can brio 


AVOLITAT\T liselto 

fibid/vi| \ld{_{l iui} l{_ 
Far di i l'ueei i UL LI 
Sitia API 


CALL EEY 0,E,5 

IF 5=0 THEN se 

IF K=49 THEN 450 

IF K=50 THEN 4820 

IF_k=5S1 THEN Sio 

IF E=sd THEN 540 

LASTBYTE=K 

FUR Isl TO 12 

IFK FREALTONE CT, 1) THEN 420 
TONE=REALTONE (1,2) 

NEXT I 

CALL SOUND (300, TONE, 3) 

GOTO S20 

IF TONE=0 THEN 320 

CALL SOUND (300, TONE, 5, INTITONE/79394+5) 5, INT (TONE/66837+5),5) 
GOTO 320 

IFTONE=O THEN 320 

CALL SOUND(300, TONE, 5, INT (TONE/79394+5),5,INT(TONE/5625+5),5) 
GOTD 320 

IFTONE=O THEN 320 

CALL SOUND (300, TONE,5,INT(TONE/84244+5),5,INTTONE/66837+5),5) 
GOTO 320 

IF TONE=O THEN S20 

CALL SOUND 300, TONE ,S, INT (TONE/84244+5) 5, INT (TONE/5625+5),5) 
GOTO 320 

END 












10 CRIL CLEAR 

20 PRINT “DIMENSIONE DEI 
30 INPUT "LUNGHEZZA ":N 

40 IMPUT "ALTEZZA":M 

ci CALL CLEAR 

50 FOR I=48 TO 144 STEP S 
70 CALL CHARCI, "FFFFFPEFEEFAEFEFEFE") 
GU NEXT Î 
90 FOR I=ò 
100 
130 
LU 
LS 


RETTANGOLI:" 


TO 15 

CALL COLORI, I,1) 

MEXT I 

CRLL SCREENITA) 

FOR I=48 TO 144 STEP 8 
La) 
LE0 
160 
170 FOR &=X 
160 CALL HCHARIA,Y.,1, 
igg CALL 50 DUND (20,77: # 
190 MKMEAXT A 

200 NEXT I 

210 GO0TO0 1350 


FANDOMIZE 

A3INT{(24-M) «ENDI +1 
f=INTCOCSZeM) #RND) +1 

TO Xabi 

Th) 
TREY. i} 









PICCOLI 
UTILI 
PROCAAMMI 


sas ff oso. 


na 
ada 


100 | RR] ferree UTI 
1 


” 
d 4Ò 


asse 
Latel 
dgr 
linstd 
» 


pod food [TY podi pd ph pe 


VI Sa 


prati ULLLLI 
Lobo RU Del TI 


podi port pochi podi 
n JT 


(i 
upesd 

questi no) 

4 Vocore! LIRA 


., . 
sense PRORT) 

I Bores! Al er 
, a 


TT) sesso 
(Fer 


fi fia fu es Du Ma DO 
CM ef at ST I ema 


Da fu" Duo pu 
MI o "JK 


CALL CLEAR 

MOSAITEUE ANIMEE 

DE CHE=SS TO 152 STEP S 

HALL CHAR CAR» "OOFETEFEFETE? 


TI E, 
in | nl Hu ii 


locale 
"A 
(3; "| 


* 
HESI CHE 
Po 


DE 


GROUPE=I 10 16 
COLUR (GPUUPE DREOUFE 16) 
GEOUPE 


10 E 


cere vene " 
ds de gl 


w 

IN 
a 

nd [°° 


i 
"| Î 
re 

e 


vorpe 
4 
.' 


f 


c0E L=1i TO 24 
Coke C=i T0] Se 
CALL HCHAR La C: S3P+S#INT C(RNI® 


eietiT 
iaia i i 
[e i LA 2 
È Li PE Fate T i. 
effi 


DR GRDUPE=1 TO 16 
ALL COLOR GROUPE» INT(RND=16 
63 


GROUPE 


30 OTO cb il 


100 CALL CLEHE 


115 PRINT 
DARE 


120 


1350 
140 

al 
ie 


sos J 
. 

4 

ì 

nn 


parsa IL Fa 
peri fi SE, 


Cotti Late Cetra Cocoon 
l'as QU Si UT pens EST ona 


«dii LISCA] fui ted a 


H 
i 
1 
= 
i 
“i 
to 
Dn 
i 
«x 
La 
mi 
i 
Los 
Ei 


“FREQUENCE DES 
UN TEXTE" 


LETIRES 
REN 


PRIMT :THPE 
IMFPUT PE 
PRINT 

REM 


UDTRE TESTE 1" 


L'ESCHRSE I+64) 

FOR Casi TO LENcPRI 

IF SEGE PEC: 13 LE THEN 230 
H=MH+ 1 

HEAT L 

PRINT Li" “siHa 

HEAT I 

FEM 


s UE 





IL PROCRAMMA A INTELLIGENTE DEL MESE 


CARLO HAN 43 ANN | 


10 REN FEFEHERIEELIFHH:I} 


20 REA EPROGRANMA "AREE" 
30 REM FEFEHEPHHEFHH5HH}} 


40 REM BY RANDONE CARLO -—SE1 BRAVISSIMO 


0 REM scelta colori a 3790 
| EX.MASIC | 





60 DIM L{30),AZ130),X{30),Y(30) 
70 AlS="AREA di un triangolo” 
80 A2$="dì un parallelograaao” 
dî AI$="di un trapezio” 

100 R4$="di un quadrilat, (date diag.* 
110 As$="con forgula di casainaaento' 
120 A6$="date le coordinate polari" 
150 A7$="date le coordinate cartes," 
140 AB$="con formula di bezout® 

150 A9$="con forsula di siapson" 

160 Al$="Restituzione dei risultati” 1: AY$="Fine" 1: HH=0 rs: GOSUB G610 
10 A=d 1: AC=0 1: DIA RPI30)1: DIN TP(G0)1> GOSUB 3750 

180 GOSUB 2550 

190 CALL KEY(0,k,S):: IF S=0 THEN 190 

200 CALL SOUND{100,800,1):: CALL HCHAR(20,28,K) 
210 FOR YY=1 TO 45 s: NEIT YY 

220 IF CHR$iK)="1" THEN CALL CLEAR 
30 IF CHR$(K}="2% THEN CALL CLEAR 
240 IF CHR$IK)="5" THEN CALL CLEAR 1: GOTO 1000 

250 IF CHRS(K}="4" THEN CALL CLEAR s: GOTO 1250 

260 IF CHR$(KI="5" THEN CALL CLEAR ss GOTO 1530 

270 IF CHRS(K}="6" THEN CALL CLEAR :: GOTO 1610 

250 IF CHR$(K)="7" THEN CALL CLEAR 1: GOTO 1750 

290 IP CHR$S{K)="9" THEN CALL CLEAR Gc: GOTO 1910 

300 IF CHR$(K}=59" THEN CALL CLEAR 1» GOTO 2050 

310 IF CHRS(K)="5" THEN CALL CLEAR 1: GOTO 2160 

320 IF CHA$S(K}="0" THEN CALL CLEAR: END 

550 CALL HCHAR(20,28,32):: CALL S0UND(200,200, 1}:: GOTO 190 

340 RI=i 

350 PRINT "AREA" 1: PRINT "di un triangolo" :: PRINT 1: GOSUB 3740 
360 PRINT "i-Date base ed altezza’ 

3570 PRINT *2-Dati 2 lati e l'angolo" :: PRINT" cospreso” 

S60 PRIRT "5-Dato un lato e gli angoli” :: PRINT * adiacenti" 

3590 PRINT "4-Dati i 3 lati {Erone)" :: PRINT 

4G0 PRINT "SCEGLI" | 

410 CALL KEY{0,K,5):: IF S=0 THEN 4i0 
473 IF CHR$(K}="{" THEN CALL CLEAR 1: 
450 IF CHRS(K)="2% THEN CALL CLEAR :: 
440 IF CHR$(K}="3" THEN CALL CLEAR»: 
450 IF CHR$(K}="4" THEN CALL CLEAR :: 
460 GOTO 410 

470 PRINT h1$ 1: PRINT 

480 PRINT “Date base ed altezza" 1: PRINT 

490 EMPUT “BASE=":B 1: PRINT 

000 INPUT "ALTEZZA=":H 

Si0 A=3#4/2 1: GOSUB 2060 

220 GOTO 2890 

30 PRINT AÎS ri PRINT 

S40 PRINT “Dati 2 lati e d'angolo" 1: PRIKT * cospreso” 1: PRIST 

S00 INPUT “LATO A=":h 1: PRINT 

S60 INPUT "LATO B=":B 1: PRINI 

070 GOSUB 3540 

G60 PRINT 11 PRINT ®ARGOLO 1" sr GOSUB 3400 

S90 A=A#B#SINIRI/2 1: GOSUB 2060 

00 GOTD 28% 

610 PRIKT Al$ 1: PRINT 

620 FRINT “Dato un lato e gli angoli” 1: PRINT * adiacenti’ 1: PRINT 
635 INPUT *LATO=":A :: PRINT 

b40 GOSUB 3540 


si GOTO 540 
:: GOITO 770 


GOTO 470 
GOTO 530 
GOTO 610 
GOTD 690 


650 PRINT 1: PRINT "ANGOLO ir" or: GOSUR T40G «> RI=R 
660 PRINT 1: PRINT “ANGOLO 21° : SOSUB 3400 -: R2=K 
670 A=tA*245IN(RI)+SINCR2))/(2#5INIR{+R2}):> GOGUB 2960 
680 GETO 2090 

690 PRINT RIS 1: FRINT 

I00 PRINT “Dati i 5 lati tErone)* 1: PRIAI 

710 ERPUT “LATO A=":A 1: PRINT 

726 INPUT "LATO B=":B :: PRINT 

7350 INPUT *LATO C=":C 

740 P=tA+B+C) #2 

T90 A=SERIFF(P-A}#(P-Bi#(P-C}}:: GOSUB 2950 

769 BOTO 2990 

770 RI=2! 

780 PRINT "AREA" 1: PRINT A2$ >: PRINT»: GOSUB 3740 
790 PRINT "I-Date base ed altezza’ 

800 PRINT “2-Dati 2 lati e l'angolo" 1: PRINT * compreso” 1: PRINT 
810 PRINT "SCEGLI" 

920 CALL KEY{0,K,5):: IF S=0 THEN 620 

650 IF CHA$iK)="1" THEN CALL CLEAR 1: BOTO 260 

B40 IF CHRSIK)="2% THEK CALL CLEAR :: GOTO 920 

950 GOTG 220 

GS0 FRINT “AREA” 1: PRINT A28 ss PRINT 

870 PRINT "Date base ed altezza” 1: PRINT 


(880 INPUT "BASE=">B s: PRINT 


390 INPUT “ALTEZZA=":} 

900 A=BH 1: GOSUB 2860 

910 GOTO 2850 

920 PRINT “AREA” 1: PRINT A26 1: PRINT 

950 PRINT “Dati 2 lati è l'angolo" :: PRINT" cospreso” :: PRINT 
740 INPUT "LATO A=":A 1: PRIRT 

990 INPUT "LATO B=":B :: PRINT 

F60 GUSUB 3340 

970 PRINT 1: PRINT "ANGOLO +" i: GOSUB 1400 

190 A=AFBESINIR):: GOSUB 2060 

190 GOTI 28%) 

1000 RT=3 

(010 PRINT "AREA" 1: PRIKT A3$ 1: PRINT 1: GOSUB I740 

1020 PRINT "1-Date le basi e l'altezza’ 

1050 PRINT "2-Date le basi, un lato” 1: PRINT * adiac, la base è l'angolo” 
1040 PRINT * tra tale lato e la base” 1: PRINT 

3050 PRINT *SCEGLI* 

1060 CALL KEY{0,K,5):: IF S=0 THEN 1000 

1070 IF CHR$S(K)="1" THEN CALL CLEAR :» GOTO 1100 

1080 IF CHRS{K)="7" THEN CALL CLEAR :: GOTO 1170 

1090 GOTO 1080 

1100 PRINT ®AREA" »: PRINT A3$ 1: PRINT 

1IO PRINT “Date le basi e l'altezza” +: PRINT 

1120 INPUT "BASE 1=":Bi :: PRINI 

1150 INPUT "BASE 2=":B2 »: PRINT 

1140 INPUT "ALTEZZA=":K 

1150 A=(B1+B2)#H/2 1: BOSUB 2960 

1160 GOTI 20%) 

1170 FRINT “AREA" :: PRIKT A3$ :: FRIAT 

Li90 FRIAT "Dati 2 lati e l'angolo” 1: PRINT * compreso” 1: PRINT 
1190 INPUT "BASE 1=%:B1 x: PRINT ss IRPUT "BASE 22":B2 ss PRINT 
1200 INPUT *LATO=":A :: PRINT 

1210 GOSUE 3540 

1220 PRIKT :: PRINT "ANGOLO 1" os: GOSUB 3400 

1250 A={B1+B2)#h#5IN(R}/2 »: GOSUB 2840 

1240 GOTI 2050 

1250 RI34 

1260 FRIAT "ARER" 13 PRINT A4$ sr: CALL HCHAR(23,30,41)ss PRINT 2: GOSUB 3740 
1270 INPUT "DIAGONALE 1=":Di :: PRINT 


1280 INPUT "DIAGONALE 2=':D2 :: PRINT 

1290 GO0SUB 3340 

1300 PRINT :: PRINT “ANGOLO FRA LE DIAGONALI :° :: GOSUB 3400 
1310 A=D1#D2#5IN(R)/2 :: GOSUB 2060 

1320 G0T0 2090 

1330 RT=5 

1540 PRINT "AREA" :: PRINT AS$ +: PRINT :: GOSUB 3740 
1550 PRINT "Dati tutti i lati meno uno e* 

1360 PRINT * tutti gli angoli seno due" :: PRINT 
1570 INPUT "NUMERO DI LATI (TUTT])=":N :: PRINT 

1580 FOR I=1 TO N-1 :: PRINT “LATO*;1j:: INPUT L{I):: NEXT I 
1390 PRINT :: GOSUB 3340 :: PRINT 

1400 FCR 131 TO N-2 1: PRINT “ANGOLO*;1;*:" 

1410 GOSUB 3400 :: AZII)=R :: NEITI 

1420 A=0 

1430 FOR T=1 TO N-2 

1440 R=0 

1450 P=ItH1 

1450 FOR I=P TO Ne 

1470 6=1-1 

1480 R=RtRZ(6) 

1490 ALSLATIELIT) #SINCRI 

1900 0=1-T 

1910 2=INT(0/2) 

1520 V=24/ 

1550 IF W=0 THEN 1550 

1540 G0TO 1560 

1550 AI=-AI 

1560 A=Athl 

1570 NENTI 

1580 MEITT 

1590 A=A/2 :: ASABSIA):: BOSUB 2040 

1600 GOTO 2890 

1610 RT=6 

1620 PRINT "AREA" :: PRINT A6$ 1: PRINT :: GOSUB 3740 
1630 INPUT "NUMERO DI VERTICI=":M *: PRINI 

1640 FOR 131 TO N 1: PRINT "DISTANZA*;I;:: INPUT LII):: NEXT | 
1650 PRINT :: GOSUB 3340 :: PRINT 

1660 FOR I31 TON s: PRINT “ANGOLO TETA*;1{":* 

1670 GOSUB 3400 :: AZ(I)I=R :: NEITI 

1680 A=0 

1690 FOR Ii TON 

1700 IF I=N THEN A=A+L(I)sL{1)}#SINCRZ(1}-RZ{1}}:: GOTO 1720 
1710 A=A+L(I)#L([+1)#SIN(R2(I+1)-R2(1)) 

1720-WEIT I 

1730 A=A/2 :: AFABSIA):: GOSUB 2860 

1740 GOTO 2890 

1750 RT=7 

1760 PRINT "AREA" :: PRINT A7$ :: PRINT :: GOSUB 3740 
1770 INPUT "N.RO VERTICI DEL PERIN.=":N :: PRINT 

1780 FOR Ii TON 

1790 PRINT “VERTICE* I 1: INPUT * 1=":X([)}x: INPUT * Y=":Y{I):: PRINT 
1800 NEIT ] s: 530 

1810 FOR J=1 TON 

1820 IF J=1 THEN 1950 

1830 IF J=N THEN 1860 

1840 A=I(J)#(Y(J-1}-Y{J#1}):: GOTO 1070 

1850 A=I(4)s(Y(M}-Y(J#H1)}:: GOTO 1870 

1860 A=1(J)#{Y(J-1)-Y(1)) 

1870 S=StA 

1880 NEIT ] 

1890 5=5/2 1: A=ABSISI:: GOSUB 2860 

1900 GOTO 2990 

1910 RT=8 

1920 PRINT "AREA" :: PRINT A8$ :: PRINT :: GOSUB 3740 


1930 INPUT "LUNGH. BASE RETTILIN. AB=":Ab :: PRINT 

1940 INFUT "NUMERO DI SUDDICISIONI =":N 1: PRINT 1: N=INTUNI:: D=AB/N 
1950 FOR I=0 TO N 

1960 PRINT *Y{*;13*)="j2: INPUT Y{1):: NEXT I 

1970 SS=0 

1990 FOR 2=1 TO N 

1990 56=554Y(2) 

2000 NEXT 2 

2010 A=DE({Y{(0}+Y{N)}/24S5)s: GOSUB 2860 

2020 GOTO 2890 

2030 RI=9 

2040 PRINT “AREA" :: PRINT A9$ 1: PRINT 1: GOSUB 7740 

2050 INPUT "LUNGH. BASE RETTILIN. AB=":A5 :: PRINT 

2060 INPUT "NUMERO DI SUDDIVISIONI =":N +: PRINT :: N=INTIN) 

2070 IF Z4INT(N/2)C0N THEN FRINT "N DEVE ESSERE PARI !'!° 1: CALL SOUNDI300,350,0 
):: PRINT +: GOTO 2060 

2080 D=AB/N 

2090 FOR 1=0 TO Nos: PRINT "Y(*;1;")="j:s INPUT Y(1)s: HEIT I 

2190 AI=Y{G)+Y(N) 1: A2=0 1: A3=0 

2110 FOR 1=2 TO N-2 STEP 2 

2120 A2=A24Y(1):: A33AI#Y(1-1):: NEXT I 

2130 AS=AZ+Y(N-1) 

2140 A=D/34(A1+24A2444A3):: GOSUB 2660 

2150 GOTO 2090 

2160 REN ERESTITUZIONE+ 

2170 PRINT AXS 1: PRINT ss GOSUB 3740 1: IF ri=0 THEN 355 

2180 PRINT "I-Restituzione (parziale” :: PRINT * è totale)” 

2190 PRINT "2-Menu principale" :: PRINT 

2200 PRINT "SCEGLI" 

2210 CALL KEY(0,K,51:: IF 5=0 THEN 2210 

2220 IF CHR$(K}="1" THEN CALL CLEAR :: GOTO 2250 

2230 IF CHAS(K)="2" THEN 100 

2240 GOTO 2210 

2250 FOR 131 TO HH 

2260 DISPLAY AT(1,14):] 

2270 CALL HCHAR(2,1,156,32; 

2200 ON TFT GOTO 2290, 2500, 2310, 2320, 2350, 2540, 2390, 2360, 2770 

2290 A$="di un triangolo” :: BOTO 2590 

2300 A$=A2$ 1: GOTO 2390 

2310 A$=h3$ 1: GOTO 2580 

2320 AS=A4SE")" +: GOTO 2390 

2330 A$=ASS :: GOTO 2390 

2340 A$=A6$ 1: GOTO 2300 

2350 AS=ATS 1: GOTO 2390 

2560 AS=AB$ 1: GOTO 2390 

2370 h$=h94 

2580 REN 

2590 DISPLAY AT(S, I): "AREA" +: DISPLAY AT(4,1):A$ 

2400 CALL HCHAR(S,1,136,52) 

2410 DISPLAY ATHIO,5): “ARCA =";RP(1) 

2420 CALL HCHAR(23,1,136,32) 

2430 DISPLAY AT(24,21):"<PRESS)* 

2440 CALL KEY(0,K,5):: IF 5=0 THEN 2440 

2450 CALL CLEAR 
2460 NEIT ] 
2470 DISPLAY AT(I,1):* 
CHAR(9,1, 136,321 
2480 DISPLAY AT(10,1): "SOMMA DELLE*;HH; "AREE PAR2,=" 
2490 DISPLAY AT(12,8)BEEP:AC 

2500 CALL HCHARI{3,1,136,2: 

2510 DISPLAY AT(24,21): "(Phi 6S6)" 

2520 CALL HCHAR(23,1,136,32) 

2530 CALL KEY(0,K,5):: IF S=0 THEN 2530 
2540 CALL CLEAR :: G0TO 2160 

2590 REN +QUADRO+ 


SOMMATORIA AREE" :: CALL HCHAR(2,1,139,32):s CALL H 


2560 CALL CLEAR 

2570 CALL HCHAR{1,1,136,32) 

2580 CALL HCHAR(5,1,136,32) 

2590 CALL HCHAR(21,1,136,32) 

2600 CALL HCHAR(24,1,143,32) 

2610 CALL VEHAR(I,1,181,24) 

2620 CALL VCHARI1,32,134,24) 

2630 CALL HCHAR(1,1,135}:: CALL HCHARC1, 32,137) 

2640 CALL HCHAR(5,1,138):: CALL HCHAR(S,32, 140) 

2650 CALL HCHAR(21,1,138)s: CALL HCHAR(21,32, 140) 

2660 CALL HCHAR(24,1,142}s: CALL HOHAR(24,32, 133) 

2670 DISPLAY AT(2,6)SIZECI8):"PROGRANNA GENERALE 

2680 DISPLAY AT(4,21SIZE(26): “PER IL CALCOLO DELLE AREE" 
2690 CALL HCHAR(7,2,79):s DISPLAY AT(7, LISIZE(7):"PIIONI:* 
2700 CALL HCHAR(8,2,139,7) 


2730 FOR R=9 TO {7 ss CALL HERARIA, 2,40+R}15 RETTO RO rn CALL VCHARI9,3,45,9: 


2720 CALL HCHAR(I8,2,85):: CALL HEHARC19,2,48)1: CALL VCHAR(18,3,45,2) 
2750 DISPLAY AT(S,2)GIZE(27)1A1$ 

2780 BISPLAY AT(10,2)51ZE(27):A2$ 

2158 DISPLAY AT(II,2)SIZE(27):A38 

2760 DISPLAY AT(12,2)SIZE(27}:A4$ 1: CALL HCHARÎ(2,51,41) 

2770 DISPLAY AT(13,2}5I2E(27):A5$ 

2760 DISPLAY AT{14,2}5I2E(27):A6$ 

2798 DISPLAY AT{1S,2}S1/E(27):A76 

2800 DISPLAY ATil6,2)517E127):A6$ 

2819 DISPLAY AT(17,2)S5I2E(27):A9$ 

2820 DISPLAY AT(18,2)SIZE(27}:AX6 

2350 DISPLAY &1(19,2)5I2E(27):AY$ 

2540 GOSUB 3470 s: DISPLAY AT(20, 1BISIZE(I0) BEEP: “SCEGLI:" 

2850 RETURN 

2060 REN #ARROTONDAMENTO+ 

2870 RA=INTIA)+INTI(A-INT{AY)#10000+,5)/10000 

2080 A=AA 1: RETURN 

2690 REN #SO7TONENUE 

2900 CALL CLEAR 

2910 DISPLAY AT(I,1):"ORA PUOI:" 1: CALL HCHARI2,3, 139,0) 

2920 CALL HCHARCS,1,42):: CALL HCHAR(3,2,82) 

2950 DISPLAY AT(S, 1): "IPETERE IL PROCEDIMENTO USAT" 

2740 CALL HCHAR(5,31,79):s CALL HCHAR(3,32,00)1: CALL HCHAR(8,2, 139,501 
2950 FOR R=5 TO 9 STEP 201: CALL HCHAR(A,2,49+(R-5)/2):: NENT R 
2560 FOR A=5 TO 9 STEP 201: CALL HCHARIR,5,45):: NEXTR 

2970 DISPLAY AT(S,2):*Azzerando l'accuaulatore’ 

2990 DISPLAY AT(7,2):*Salvando l'area nell’acc.* 

2990 DISPLAY AT(9,2):*Non salvando DY'arsa nell’ac' 

S060 CALL HEMARI9, 31,99}: CALL HCHARIO, 32,46) 

3610 CALL HCHAR(I2,1,42)1: CALL HCHAR(12,2,04) 


3020 DISPLAY ATCI2, 1): “ORNARE AL MENU PRINCIPALE:" +: CALL HCHARC13,2,159,30) 


S0st FOR R=14 T0 18 STEP 21: CALL HEHAR(R,2,52+(R-14)/2):: NEXT R 
3040 FOR R=14 TO 18 STEP 20:: CALL HEHAR(A,3,45):: NEXTR 
SUS0 DISPLAY AT(14,2):*Azzerando l’accuaulatore* 

3060 DISPLAY ATCIS,2):*Salvando i'area nell’acc.* 

3070 DISPLAY ATi18,2): "Non salvando l'area nell'ac' 

5080 CALL HCHARCIB, 31,991: CALL HCHARI18,32,46) 

5090 CALL HCHAR(ZI,1,136,32)1: CALL HCHAR(24, 1, 143,32) 
SACO CALL VCHARIZI, 1,141, 4)x: CALL VERAR(21,32, 134,4) 
Si40 CALL HEHAR(ZI,1,135)s: CALL HCHAR(21,32,137) 

5420 CALL HCHAR(24, 1,182) ss CALL HCHAR(24,32,133) 

3130 GOSUB 34/0 

3140 DISPLAY AT(20,18)BEEP:*SCEGLI:* 

3io0 CALL KEY(0,K,5):: IF S=0 THEN 3150 


3160 CALL S0UND(100,000, fis: CALL HCHAR(20,20,K}:: FOR Yi=1 TO 45 r: NEXT YY 


SE70 IF CHRS(K)="1" THEN 3240 
3180 IF CHR$(K)="2" THEN 3260 


3190 IF CHRS(K}="35" THEN 3280 

3200 IF CHR$(K}="4" THEN 3500 

S210 IF CHR$IK)="5" THEN 3320 

S220 IF CHRS{K)="6" THEN 3350 

3250 CALL SOUND(200, 200, 1)1: CALL HCHAR(10,20,32}:: GOTG 3150 
3240 AC=0 1: CALL CLEBR 1: GOSUB 3510 

SZ50 GA RT GOTO 340,770,1000, 1250, [330, 1610, 1750, 1910,2050 
S260 ALSACHA 1: HH=fHri 1: TP{HH)=RT 1: RP{HHI=A ss CALL CLEAR 
3270 GOTO 3250 

5200 CALL CLEAR 

5290 6070 3250 

S300 AC3O 1: CALL CLEAR 1: GOSUB G5l0 

3510 GOSUd 150 

3320 ACSACHA 1: HH=HH#! 13 TPIAH)=RT n: RP(HHI=A so CALL CLEAR 
S530 CALL CLEAR 1: GOTo (90 

3540 REN #5CELTÀ ANGOLO: 

sal PRINT “ANGOLI CENTES, (C3 0° 1: IRFUT® 
Ss60 IPO 18=*C* THER I=3i ri E5P0 35% 

SSF0 IF 1$=*5* THEN /=2 1: GOTO 35390 

3390 BUTO 3330 

3590 RETURA 

5400 REN #INPUT DI UN ANGOLOs 
3410 IF I=i THEN 35450 

3420 INPUT ® GRADI 36 
3450 INPUT © PRIMI }°:P 
SA40 INPUT * SECONDI }*:5 o: 
3490 INPUT LT 1: R=LT#P1/200 
3460 RETURN 

34/0 REM #STAMPÀA AREEE 

3460 CALL HCHAR(22,2,69):1 DISPLAY ATTI2, LISIIE (ZO) "Itiaa area calc=";f 
3490 DISPLAY AT(23, 1)SIZE(281:%  Accuaulatore =*jfC 

Savi RETURN 

3510 REN +A2IERAMENTO: 

S020 IF HG THEN 3540 

3939 FOR I=i TO HH ss TP(1}=0 1: RP(F)=D 0: NEST I 1: HH20 

5540 RETURK 

3050 REN #MANCANZA RISULTATIa 


1: GOTO 180 


73:18 


SESSAG, (9) 


n= {G+P/60+5/560014F[/190 1: GOTO 3450 


DIN rs PRINT" MEMORIA 1" cs PRINT 1: CALL HCHAR(23,1,139,32) 
3570 FOR F=1 TO 4 s: PRINT ss NEXT E 

3560 PRINT TAB{20):*<PRESS)® +: CALL HCHAR(22,1,136,32) 
3590 CALL KEYIO,K,S):: IF S=0 THEN 3590 

3600 CALL CLEAR +: GOTO 190 

3610 REN #CARATTERIS 

3620 CALL CHAR(133,"10101010F3000000*) 

3630 CALL CHARCIZA, "1010101010101010%) 

3640 CALL CHAR(L35, *0000000F09080809"1 

3650 CALL CHAR(I36, "000000FF00000000") 

3660 CALL CHAR(137, "000000F010101010"1 

3670 CALL CHARCIZA, "0800080F 69080208") 

3680 CALL CHARCIZ9, “00FFO0000000000G*) 

3690 CALL CHARII4O, FIOIOIOFGIGIOIO1O"} 

3700 CALL CHARIAI, "0000090803000809°) 

3710 CALL CHARI142, "060000020F000000") 

3720 CALL CHAR(143, "00000000FF000000") 

3730 RETURN 

3740 CALL SOUND:150,600,1):s CALL HCHAR(23,1,136,32):: RETURN 
3750 REN #SCELTA COLGRIS 

3760 C1=2 ! COLGRE SCHERNO 

3770 C2=4 ! COLORE SCRITTE 

3780 C3=6 ! COLORE RIGUADRI 

3796 CCC=10 !COLORE CURSORE 

3600 CALL CLEAR ss CALL SCREENICII 

3810 FOR I=1 T0 12 +: CALL COLORCI,CI,CH):: NENTI 

3820 FOR 1=13 TO HA ss CALL COLOREI,CI,CH):: NENTI 
3830 CALL COLORO, CCC, 1}:> RETURN 


2 REMO FRANCONPUTER 
5 REN 
4 RENO LE CAPITALI 





sa ——— | Basic | 


b REN DEL NONDO 
IRE TTT 
if CALL CLEAR 

20 CALL COLORI2, 16,7) 

50 CALL HEHAR(10,9,42,15) 
40 CALL VCHAR(11,9,42,3) 
J0 CALL VCHARIII, 23,42,3) 
60 CALL HEHAR(14,9,47, 15) 
Fi R&="LE CAPITALI* 

GO RI=12 

di CO=i0 

# GOSUB Sii 

100 FOR I=i 10 20 

105 CALL S0UND(50, 245, 2) 
150 CALL COLORI2,7,16) 
115 CALL SOUNDISO, 456,2) 
120 CALL COLORI2, 16,7) 
125 CALL S0UNDI50, 349, 2) 
150 REM | 

186 CALL CLEAR 

145 CALL COLORI2,2,1) 

150 DIN A6{190),B#li50) 
166 RANDONIZE 

i70 R=i 

180 RESTORE 

190 K=IRTIRND#171}+i 

200 FOR II TOK 

210 READ ASIK) B6(K) 

220 NEIT i 

250 CALL HEHAR(22,1,32,64) 
240 CALL HEHARII, 1,32, 640) 
200 R&="DIAMI LA CAPITALE DI:* 
260 RI=IG 

270 GOSUB 550 

200 R8=" ERRE) 

290 RI=12 

500 GOSUB 350 

510 INPUT C$ 

S20 IF C8C2B8CE)THER 400 
350 CALL S0UNDI10G, 349, 2) 
540 CALL S0UND{100,456,2) 

390 CALL SOUND 100,534,2) 

J60 N$="0.E BRAVO! !* 

3/0 RI=IZ 

J00 GOSUB 530 

370 Gola 150 

400 CALL S0UNDI100, 202,2,-3,2) 
410 H&="Errore!! Riprova" 
420 RISI? 

450 GGSUB 550 

440 R=Rti 

450 IF Ris THEN 310 

560 M$="Te la dico io la capitale!!!" 
470 RI=16 

490 GOSUB 350 

490 H8=" "&BS(K) 
500 RI=ig 

Giù GOSUB 3 
J50 GOTE 180 


530 003 
531 FOR I=1 TO LEN(NS) 

540 CALL HCHAR(RI,C0+I,ASC(SEG$(M6,1,1))) 

550 REIT ] 

560 RETURN 

570 DATA ALBANIA, TIRANA, AUSTRIA, VIENNA, BELGIO, BRUKELLES, BULGARIA, SOFIA, CECOSLOVA 
CCHIA, PRAGA, CIPRO, NICOSIA 

590. DATA DANIMARCA, COPENAGHEN, FINLANDIA, HELSINKI, FRANCIA, PARIGI, GERMANIA FEDERAL 
E, BONN, GRAN BRETAGNA, LONDRA 

590 DATA GRECIA, ATENE, IRLANDA, DUBLINO, ISLANDA, REYKJAVIK, ITALIA, ROMA, JUGOSLAVIA, B 
ELGRADO, LUSSEMBURGO, LUSSENBURGO 

500 DATA NALTA,LA VALLETTA, NORVEGIA, OSLO, OLANDA, ANSTERDAN, POLONIA, VARSAVIA, PORTO 
GALLO, LISBONA, REP, DEN. TEDESCA, BERLINO 

516 DATA ROMANIA, BUCAREST, SPAGNA, MADRID, SVEZIA, STOCOLNA, SVIZZERA, BERNA, TURCHIA, A 
NKARA, UNGHERIA, BUDAPEST 

520 DATA RUSSIA, MOSCA, AUSTRALIA, CANBERRA, FIGI, SUVA, GUAN, AGANA, IS. DEL PACIFICO,SA 
IPAN,KUDVA CALEDONIA, NOUMEA 

530 DATA NUOVA ZELGNDA, HELLINGTON, NUOVA GUINEA, PORT MORESBY, POLINESIA, PAPEETE, 5A 
LONONE, HONIARA, SANDA, APTA 

640 DATA TONGA, NUKU ALOGA, VANUATU, VILA, BAHANA, NAGSAU, BARBADOS, BRIDGETOWN, BELITE, 
BELMOPAN, CANADA, OTTANA 

650 DATA COSTA RICA, SAN JOSE, CURA,L'AVANA, GIAMAICA, KINGSTON, GRENADA, SAINT GEORGE 
5 GUADALUPE, BASSE TERRE 

660 DATA GUATEMALA, GUATEMALA, HAITI, PORT AU PRINCE, HONDURAS, TEGUCIGALPA, ISOLE VER 
BINI, CHARLOTTE AMALIE 

570 DATA NARTINICA,FORT DE FRANCE, NESSICO,CITTA DEL MESSICO, NICARAGUA, NANAGUA, PA 
NANA, PANAMA, PORTORICO, SAN JUAN 

580 DATA REP. DONENICANA, SANTO DONINGO, SALVADOR, SAN SALVADOR, ST.LUCIA, CASTRIES,ST 
VINCENT, KINGSTON, STATI UNITI, NASHINGTON 

590 DATA ALGERIA, ALGERI, ALTO VOLTA, CUAGADOUGOU, ANGOLA, LUANDA, BENIN, PORTO NOVO, BO 
TENERA, GABORONE, BURUNDI, BUJUNBUNBURA 

700 DATA CAMERUN, YADUNDE”,CAPO VERDE, PRAIA, CENTRAFRICA, BANGUI,CIAD;N° DIAMENA, CON 
ORE, MORONI, CONGO, BRAZZAVILLE 

700 DATA COSTA D° AVORIO, ABIDJAN,EGITTO, IL CATRO,ETIORIA, ADDIS ABERA, GABON, LIBREY 
ILLE, GAMNBIA, BANZUL, GHANA, ACCRA 

720 DATA GIBUTI, GIBUTI, GUINEA,CONAKRY,GUINEA BISSAU, BISSAU, GUINEA EQUATORIALE, NA 
LABO, KENYA, NAIROBI, LESHOTO, MASERU 

730 DATA LIBERIA,MONROVIA, LIBIA, TRIPOLI, MADAGASCAR, ANTANANARIYO, NALAMI,LILONGHE, 
MALI, BARAKO, MARDCCO, RABAT 

740 DATA NAURITANIA, NOVAKCHOTT,MAURITIUS,PORT LUIS, MOZAMBICO, NAPUTO, NANIBIA, WIND 
HOEK, NIGER, NIANEY,NIBERTA, LAGOS 

750 DATA REUNION,ST.DENIS,RUANDA, KIGALI,SA0 TONEE",SAO TONE', SENEGAL, DAKAR, SIERR 
A LEONE, FREETONN, SOMALIA, MOGADISCIO 

70 DATA SUD AFRICA, PRETORIA, SUDAN, KHARTOUN, SWAZILAND, NBABANE, TANZANIA, DAR ES SA 
LAN, TOGO, LOME*, TUNISIA, TUNISI 

TO DATA UGANDA, KANPALA, ZATRE, KINGHASA, ZANBIA, LUSAKA, ZINBABWE,HARARE, ANTILLE OLA 
NDESI, WILLENSTAL 

790 DATA ARGENTINA, BUENOS ATRES, SOLIVIA,LA PAZ, BRASILE, BRASILIA, CILE, SANTIAGO,CO 
LOMBIA, BOGOTA", ECUADOR, QUITO 

790 DATA GUVANA, SERGETOWN, PARAGUAI, ASUNCION, PERU, LINA, SURINAME, PARANARIBO, TRINID 
AD E TOBAGO,PORT OF SPAIN 

800 DATA URUGUAY, MONTEVIDEO, VENEZUELA, CARACAS, AFGHANISTAN, KABUL, ARABIA SAUDITA,R 
TAD, BAMRETN, MANARA 

810 DATA BENGLADESH, DACCA, BHUTAN, THIMBU, BIRNANIA, RANGOON, BRUNEI, BANDAR,CINA, PECC 
HINO,COREA DEL NORD, PYONG VANE 

920 DATA COREA DEL SUD, SEUL,EMIRATI ARABI UNITI, ABU DHABI, FILIPPINE, NANILA,GIAPP 
ONE, TOKYO, GIORDANIA, AMMAN 

930 DATA HONG KONG, HONG KONG, INDIA, NUCVA DHELI, INDONESIA, GIACARTA, IRAN, TEHERAN, I 
R&G, BAGDAD, ISRAELE, GERUGALENME 

840 DATA KANPUCHEA, PHNOM PENN, KUWAIT, AL KUWAIT,LAOS, VIENTIANE, LIBANO, BETRUT,MACA 
0, MACAO, MALAYSIA, KUALA LUNPLR 

850 DATA MALDIVE, MALE*, MONGOLIA, ULAN BATOR,NEPAL,KATHAMANDU, OMAN, MASCATE, PAKISTA 
x, ISLAMABAD, GATAR, DOHA 

860 DATA SINGAPORE, SINGAPORE, SIRIA, DAASCO,SRI LANKA, COLONSO, TATWAN, TAIPEI, THAIL 
ANDIA, BANGKOK, VIETNAM, HANOI 

970 DATA VEMER DEL NORD, SAN'A, VENEN DEL SUD, ADEN 


1 REBO sEFPRELEEEEHEFI 


7 RER + £ 
3 REM # FRANCONPUTER + 
4 REE # E 


© RE FEEHHEHHLHLILHI 


9 CALL CLEAR a 
18 FOR TY=I TO 8 | basic | 


15 CALL COLORITY, 16,2) 

20 MESI TT 

23 CALL SCREENIZ) 

S0 PRINT TABIG)s "FREGUENZA TEST" 


34 PRINT 1111: 

46 PRIRT "OGNUNO DI NGI C'ABILITATO":"AD ASCOLTARE DEI SUONI": "CON PREGUENIC 
DIVERSE* 

45 PRINT s1:°FAI ANCHE TU LA PROVA”: ---___-_-___--———--—------- ss*SCEGLI IL 


TUO HUMERO®:"E  RICORDALO © 

50 PRINT +:°GUALI ROTA #UOI (1/1002)" 
GS INPUT "NUMERO 27 “1: 

bf IF d(=100 THEK 75 

65 PRINT "#sefiki 15 [00##H" 

70 BOTO S 

75 W=104 

9 RARDOMIZE 

05 P=f 

O R=i500 

95 CALL CHAR(SS, "00070E00083939%) 

100 CALL CHARIS7, "GGGPIP2iZIE7E7%) 
i05 023 

140 K=2*{1/12} 

115 CALL CLEAR 

120 FOR IS TOI 

125 I=INT{15#RND}+7 

156 I=INT{{5#RND}+3 

iso FORG=O TRI 

140 i=INTI(24#ANDI+1 

145 Y=INTI32#RND} +! 

150 CALL COLORI9,I.2) 

155 N=IRTI@RE*I) 

160 CALL HCHARII,Y_96+6) 

165 NEST 6 

170 P=PH] 

175 NT8=STR$(P) 

180 FOR JJ=i TO LENINTÉ) 

185 CALL HCHARTI2, 16+3J,ASC(5EG$NT6,JJ,1}}) 
196 REST dj 

175 CALL S0UNDIR,K,0) 

200 REX È 

205 IRPUT "GUALE NUMERO NON AVETE UDITO?7":H 
216 F=INT{R8K*H] 

265 PRINT "LA VOSTRA FREGUENZA E' LA:":F 
220 PRINT "ANCORA?IV/N)* 

223 CALL KEYIO,E, 5) 

230 IF 5=0 THEN 225 

255 IF E=87 THEN 90 

286 END 





CHI Ha DETTO CHE IL 1199 Non 
SURE MINUSCOLO ? 





LARICATE fo INIZIATE ILVS.PRAGRAMMA PARTENDO 


[Pa 


DaL 32M) 


16 RENO ELEREFEREFHHELIE 
20 REN È Li 
30 REN # FRARCOMPUTER # 
40 RER + L 
50 REN #ssetHtsErteHità 
60 RER 
TR RERO = CARATIERI 
60 REN 
Si REA IR 
Gi REM 
33 REM CORSIVO 
64 REF 
100 DATA 10/610[01000/0 
DG DATA 2029280000000) 
120 DATA 29297C28/02028 
150 DATA 59043039145459 
140 DATA 60640810704C0£ 
SO DATA 20000020544934 
160 DATA 0008100000000 
170 DATA 69102020201008 
196 DATA 2010000808020 
190 DATA 0028107C102800 
200 DATA 0010107C101008 
Zi0 DATA 0000000030102) 
228 DATA 00000070000000 
230 DATA 0000000000030 
24G DATA 00040810204000 
230 DATA 50444441044450 
260 DATA 10SGIOIOIOIOSS 
270 DATA 5844040810207C 
260 DATA 30440418044439 
270 DATA 081929497C0008 
300 DATA 7040700404445 
319 DATA 18204078444455 
S20 DATA 7004081020202) 
330 DATA 3044443944445 
360 DATA 3044443C040930 
320 DATA 66303000503000 


360 DATA 00303000301020 
370 DATA 0010204020108 
380 DATA 00007C007C0000 
390 DATA 2010080408102 
500 DATA 30440408100010 
410 DATA 30445C545C4038 
520 DATA 000018041C241E 
430 DATA 2020302222223 
440 DATA 0000102020201C 
450 DATA 02021E2222221E 
460 DATA 00001C223C2010 
470 DATA 10222039202020 
480 DATA 00001E22221E021C 
590 DATA 2020302222222? 
500 DATA 09000902000908 
510 DATA 00001C0404042419 
520. DATA 00002420302024 
530 DATA 20101010101200 
540 DATA 0000L42AZAZAZA 
550 DATA 00002914141416 
55 DATA 0001022222210 
570 DATA 00003C2222302020 
530 DATA 00001E22221E0202 
590 DATA 0000203220202) 
500 DATA 00001C201C021C 
510 DATA 103C101010120£ 
570 DATA 0000222222221 
630 DATA 00002222141408 
b40 DATA 0000222A2A2A14 
650 DATA 0000221408142? 
560 DATA 00002214000008 
570 DATA 00003E0MOBIO3E 
730 FOR T=33 70 90 

740 READ A$ 

750 CALL CHAR(T,AS) 

750 RENT 7 

771 INPUT A6 

772 PRINT "EDGOHGIDHIDSHI" 








100 CHLL CLERF 
110 PRINT °MINICEDITEUFR DE TESTE 


izi PRINT 
1350 REM 


14 OPEN Bi: "TP.E"«OUTPLT 
150 DIM AEGIO 

160 I%="N" 

170 REM 


150 FOR Isi TO 10 

13li FRINT *"TAPES LE FREAGEAFHE 
HoUsl 

coi INPUT PE 

ciu IF Pi=CHES 1315 THEN 270 

0 AbCII=PE 

cal CHILL CLEFF 

cii GOoEUE AS 

csi NEST I 

cei REN 


ce 0 N=I-1 

c60 CALL CLEAR 

CIAU PRINT “EDITION :":"P UN PARA 
GRAPHE RA LH FOIS COOU EN CONTI 
HU H ARKET" 

300 IRPUT "VOTRE CHOIKS CiRÉp 

10 IF RE THEN Sell 

320 IF RE (THEN S00 

30 IF EE THEN 600 


Cai 


360 INPUT “HUMERO DU FARAGRAFHE 


= I 
arl IF II THEN Sell 
350 IF I=H THEN Sl 


290 PE=SESII 
400 DE="N" 
410 GO=SUE SS 
420 INPUT “"2YDULES-INMPRIMER <0eNH0 
?_"31% 
430 CALL e 
4401 DOZUE 
450 IMPFUT “UN AUTFE FAFAGFAFHE € 
Dei? "RE 
460 IF F$="0" THEN 360 
40 IF RE="NHUÙ® THEN 250 
450 GOTO0 450 
490 FEM 
2000 IMPUT ">2yOULESs+ NOUS IMPRIMER 
(OM 7 "116 
210 CHLL CLEAF 
s20 FOR Isili TON 
530 PEI=SRE STI 
540 EdEleE 630 
s930 HEST I 
s50 IMPUT "AVES+YDOUS FU LIFE «O 
IRE 
0 IF RE="0" THEN Srl 
230 G0TO Seu 
290 REM 


500 LLOS E #1 


<=LEN (PISTHEN 630 
(PE 


FOO IF SEGEPE Cs ii=" " THEN 73 
fill C=t-1 

Feo GOTO 700 

Fal IF SEGEPE:C. 13 <>" " THEN 78 
740 cesc+i 

al C=C=1 

F&0 IF C*C1 THEN 730 

70 REM 


al PRINT SEGE PRECI: C+0C1+1) 
30 IF Is5>"0" THEN SIO 

GUI PRINT #IsZEGE Pi, Cia C-Ci+13 
Gil Cisco 

se0 IF CIALENPETHEN 650 

20 RETURN 


100 REN FFEEEEEERTHFPEEIHHEH 

10 REN FRANDOR-NUSE 

120 RENO EREEFHELERHEFHEEHEHEE 

150 DATRRANDON NUSIE 

140 DATA 81983 FRANCORPUTER 

150 DATA VICENZA 1904 

150 DATA PRESS ENTER TO START 

170 DEF CTR${X$)=SEG6{* 3,4, 14-LENCIS) /2IEX$ 
150 CALL CHAR(64, "3C4299A1A1994230°) 
190 CALL SCREENIBI 

206 CALL CLEAR 

210 FOR IS TOR 

220 CALL COLORI, 2,0) 

230 NEXT I 

240 CALL YCHAR(I,31,1,96) 

200 CALL SCREENISÌ 

260 READ 518,526, 538,548 





| Gase | 





270 PRINT 11:CTR$(516)r000:CTRS(526)1:CTR$(536) ini: 
280 RANDONIZE 
290 DEF NOTE(X$)=P05(*-----------  £C DEFGA 8°, SEGS(XE, 1,1}, 1}-13 


300 DIN H{37),5C(301,B4(30),CR(30) 
310 REM (+ READ IN PATTERNS #) 

320 READ AS 

330 5920 

340 READ 56(5941) 

350 IF S6159#1)="BAGS" THEN 380 

360 59=5% 

370 GOTO 340 

390 690 

390 READ B$(B9+1) 

400 IF B&(8941)="CHORDG" THEN 430 
410 B9=B9#1 

420 BOTO 390 

430 £9=0 

40 READ C$(C941) 

450 IF C$(C9+1)="END" THEN 490 

460 C9=C941 

470 GOTO 440 

490 REN te SETUP SCALE #) 

490 H(1)=282 

500 Hi=24{1/12) 

510 FOR I=2 10.37 

520 HITI=H(I-1)4Hl 

530 MENTI 

540 PRINT CTR$(S4$)11: 

550 CALL KEY(0,CH,STI 

60 IF CHK}13 THEN 55 

STO REN (+ GET OPTION #) 

580 CALL VCHAR(1,3,32,672) 

590 CALL SOUNDI-1,H{1),30) 

500 PRINT :° & 1983 FRANCONPUTER CLUB "iis: 
610 PRINT » "OPTIONS ARES": 

620 PRINT " 1. RANDOM STEPS* 

630 PRINT * 2, RANDOM HARMONY" 

640 PRINT " 3, END PROGRAN"::: 

550 INPUT "YOUR CHOICE? ":Y 

560 IF (YC11+(YS3)THEN 650 

670 IF Y=3 THEN 1430 

680 PRINT»: 

690 REN (# GET PARAMETERS +) 

700 INPUT "SCALE TYPE CI-"&STRE(G9)g*)? "2 
710 IF {SC1)+(SYS9)THEN 700 

720 IF V=2 THEN 750 

730 INPUT "MAX STEP SIZE {1-5}? “:1N 
740 IF CINCH)+(INI5)THEN 730 

750 SOTO 800 

760 INPUT "BASS PATTERN L1-"LSTR$(B9}L")2 "1 


t=# 


770 IF_(BC1I+(BYB9ITHEN 760 

730 INPUT *CHORD PATTERN (1-"ESTR&(C9)&*)? #20 
790 IF (C<11+(COC9ITHEN 780 

800 INPUT "PLAYING SPEED (1-9)? ":7 
B10 IF_{TC)+(T)9)THEN 800 

320 T=135-T#15 

830 REN (+ SETUP PATTERNS #) 

840 PRINT 2 "WORKING ...%; 

950 50=0 

860 FOR I=i TO LENISSISI) 

970 N=NOTE(56(5)) 

880 50=S0-(N}1) 

890 SC(50I=N4(N31)-SC(50141N(2) 

900 NENTI 

010 FOR I3i TO 50 

920 SCi1+S0)=SCt1)+12 

930 NENTI 

940 IF Y=1 THEN 1220 

95) 50=0 

960 FOR I=1 TO LEN(BS(B)) 

970 N=NOTE(B#(B)) 

990 B0=B0-(N}1) 

090 BACBOI=N-{1#1N21}-BACG0)+iNC2) 
1000 NEXT 1 

1010 C0=0 

1020 FOR I=1 TO LENIC$(C)) 

1030 N=NOTE(C8(C)) 

1040 CO=C0-(ND1) 

1050 CRICOI=NF261N31)-CRICO)FINC2) 
1060 NENTI 

1070 REN Le RENDON HARNONY #) 
1080 PRINT ss"PLAVING ... 

1090 FOR N=i TO CO 

1100 FOR I=1 TO BO 

DILO VISCRENI4SCHI+]NT(RAD6501) 
1420 Y2=CRIMI+SCI1+INT(RND#50)) 
1130 VI=CRINI+BA(1) 

1140 CALL SOUNDI-4000,H(VI),5,H(W2),5,H(V31/2,1) 
1150 CALL KEYIO,CH,ST) 

A4G IF CH=32 THEN 570 

{170 FOR ID TOT 

1180 NENTI 

1190 NEIT 1 

1200 NENT N 

1210 GOTO 1090 

1220 REN (a RANDON STEPS 4) 

1230 PRINT 5: "PLAYING..." 

1240 ID=2eIfKt1 

1250 VI1)=INT(150+1)/2) 

1240 VIZIZVIL) 

1270 VII=VILI 

1280 50=2850H 

1290 W=INTIRND#3) +1 

1300 1=V(WI+INT(RKDEID)-IN 

1340 X=1+(1-1)#{K)0}#{1C50) 

1320 VIWI=I 

1330 CALL SCUADI-4000, HISCIV(1)),1,HISCiW(21)),1,H(5C(I3})1/2,1) 
1340 CALL KEYI0,CH,ST) 

1350 IF CH=32 THEN 570 

1340 FOR I=D TOT 

1370 NEXT 1 

1330 GOTO 1290 

1390 REN (a PATTERN DATA 4) 

1400 DATA SCALES, COEFGAB, COELFGALBZ, COEGA, CEXFGBI, CEGBI 
1410 DATA BAGS,C66-G, CEGABZAGE, CCGAAG, CGGG-GG, CGGGI-GGG-E 
1420 DATA CHORDS, CCGC, CCFCGC, GFELD, CADGCFDG, EFFEF 
1430 DATA END 


100 
110 
120 
1350 
140 
150 
160 
170 
180 


190 
200 
zio 
230 
240 
250 
260 
270 
280 
ATO 
300 
3510 
320 


330 





n f (ENER: t LS 
CANE iodato OR È ° i Mie ; 
ee 3 n 


VLISLTTKITELILITZIZA 
* NIGHT BLOCKADE % 
9900902029090 02202220: 
BY ANTS REIGO 
99”"ER VERSION 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
CALL CLEAR 

PRINT "IS THIS RUNNING ON 
1) 99/4A OR 2) 99/4 2": : 
SS (1) OR (2)": : 

CALL KEY(0,K,S) 

IF S=0 THEN 190 

IF (K<49)+(K>50)THEN 190 
IF K=49 THEN 250 

KBD=0 

GOTO 270 

KBD=5 

REM *%X*SCREEN FILL 

CALL CLEAR 

DIS=1 

GOSUB 2830 

DIS=0 

TOTSHT=0 

DIM GRF(14),GRF$(14),SCP(32),R( 
159), CL (159) 

DATA 136,2996593EFF185492, 63,08 
01AA0400558201, 33, 0000COFCF8, 34 
, 04063FFFFF, 35, 04063FFFFF, 36,04 
063FFFFF, 37 

DATA 04063FFFFF, 38, 000000FF7F,3 
9, 0000000F07, 40, 0000000301,41,0 
0000001 

DATA 159,0, 158, 0000007E7E, 42, FF 


2.4.1 


: "PRE 


 FFFFFFFFFFFFFF 


90 


400 


410 


430 


440 


DATA ET; E Sl, 01 ui 13,5, 45, 
19,530, Ba 25825, 321, 5 27,4 
26;5,26,11,29;5,27,3,26,3,8 
DATA S,10,;5, 12,3, 1A, Ba 16, 5, 18,3 
20 Bi 22 3 24,08, 25,8, 26, LA 5, 3 
,28,11,28,3,29,3,9,8,7,11,16 
DATA 11,10,8,11,5,10,8,13,8,15, 
8,17,5,20,8,19,8,21,8,23,11,22, 
11,;19,5,22,5,24,5,6,5,12 

DATA 8,9,5,14,5,18,11,13,5,8,l11 
pe io, LI, 4346 La Sat Fg 
3,28,11,31,8,8,11,17,11,11 

DATA 8,12,5,11,8,14,8,16,8,18,5 
,2i,8,20,8,22,8,24,11,23,11,20, 
5,23,5,25,5,7,5,13,8,10 

DATA 5,15,5,19,11,14,5,9,11,8,5 
,17,11,5,8,15,8,9,8,17,5,4,3,8, 
Lig 27, BaiSa 11; 18/1 1x1 Ba53:5 
DATA 5,8,6,8,7,8,27,5,28,8,28,8 
,129,8,30,11,24,11,21,5,29,5,30, 
5,3,5,6,8,4,5,7,5,27,11,15 

DATA 5,4,11,9,5,8,11,6,11,30,8, 
Zi, 3, 29,35, 23, 3,25 

DATA 12,12,13,13,14,14,15,15,15 
,16,16,16,17,17,17,18,18,19,19, 
19,20, 20, 21,21 


450 


4650 
470 
480 
490 
500 
SIO 
3520 
550 
540 
0 
3640 
ZO 
bo 
1340) 
[= IRIO) 
A1O 
#20 
fAU 
90 
0 
560 
670 
440 
440 
40M) 
iO 
#20 


730 
740 
750 
/ 680 
770 
780 
190 
HO 
8B10 
820 


BIEU 
840 


1350 


8640 
870 
489 
te ie408) 
DU 
PLO 
920 
930) 
DAL) 
9540 
#80 
9471) 
SHE 
491) 


DATA Sg Ss; 3a 11,90 21: 1% 17, 
15,0,0,0, 630 

FOR X=1 TO 14 

READ GRF (X),GRF$ (Xx) 

CALL CHAR(GRF (X),GRF$(X)) 

NEXT X 

RESTORE 360 

FOR X=33 TO 159 

READ RIM), CL (XI) 

NEXT X 

RESTORE 440 

FOR X=5 TO 28 

READ BSCP(X) 

NEXT X 

CALL. CLEAR 

CALL COLOR(4, 11,1) 

CALL COLOR(5, 12,1) 

CALL SCREEN (2) 

IF TOTSHT=0 THEN 450 

GOGUB 2930 

CN SLXN GOTO 670,740, 1520, 2770 
TOTSHT=1 

GOTO 630 

IF KBD=0 THEN 3070 

R(15)=8 

CL (13) 327 

REM 38$INITIAL VALUES 

RESTORE 450 

READ A,B,C,D,T1,T2,T35,T4,SCP1,5 
CP2, SCP3, SCP4, TOTAL, ESC, SHOTS,L 
IM,MIS 

CALL COLOR(14, 10,1) 

GOSUB 2270 

G0SUB 2460 

RANDOMI ZE 

TOTSHT=TOTSHT+SHOTS 

SHOTS=0 

REM xX**XTEST FOR END 

IF (LIM<1)+(ESC>1)THEN 3450 

ON INT (RND*I2)+1 GOTO0 B20,830 
IF (TOTAL.>10)% (MIS3=:0)+(TOTAL>12 
)%X (MIS=0) THEN 850 ELSE 830 
GOSUB 1546 

IF (TOTAL >5)% (MIS=0)+{(TOTAL>20) 
% (MIS>O) THEN 850 ELSE 920 

ON INT (RND%X4)+1 GOTO B60, 920, 88 
O, 920 

GO0SUB 3690 

GOTO 900 

GOSUB 3520 

REM #*%*4DEFENSE CHECK 

CALL KEY (0, KM, SM) 

GOTO 3130 

GOSUB 2610 

GUOSUB 1B30 

GO0SUB 2660 

CALL KEY (KBD,K,S) 


IF Hi >O THEN 980 
GUTO 750 
JP K=32 THEN 1010 


IF k=13 THEN 610 


1000 
1010 
1020 
1020 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 
1160 


1170 
1180 


1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1a70 
1280 
1290 
1300 
1310 
1320 
1.530 
13540 

350 
13560 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
14650 
1470 
1480 
1490 
1500 
1510 
1520 
15530 
1540 
1550 
1560 


GOTO 940 
GO0SUB 2560 
GOSUB 2410 
CALL KEY (KBD,KEY,STAT) 
IF STAT< >0 THEN 1080 
GO0SUB 2660 
CALL KEY (KBD,KEY,STAT) 
IF STAT=0 THEN 750 
IF (KEY=32)%* (SHOTS=0) THEN 1050 
IF KEY=32 THEN 1030 
CALL SOUND (90,-7,16) 
IF (KEY<13)+(KEY>159) THEN 1030 
IF (KEY>13)% (KEY<33) THEN 1030 
REM %X*X IMPACT GRAPHIC 
CALL GCHAR(R(KEY),CL (KEY) ,CODE 
) 
CALL 
CALL 
) 
GOSUB 2220 
IF (CODE>33)%* (CODE<38) THEN 124 
O 
SHOTS=SHOTS+1 
IF SHOTS<LIM THEN 1030 
GOSUB 2510 
GOTO 750 
REM **X&*TEST FOR HIT 
IF CODE=34 THEN 1340 
IF CODE=35 THEN 1400 
IF CODE=36 THEN 1460 
REM X*XSHIP DESTRUCTION 
CALL HCHAR(T4,D,GRF (1)) 
CALL HCHAR(T4,D-2,GRF (2), 5) 
GOSUB 2130 
CALL HCHAR(T4,1,32,32) 
=3 
GOTO 750 
CALL HCHAR(T1,A,GRF (1)) 
CALL HCHAR(T1,A-2,GRF (2),5) 
GOSUB 2130 
CALL HCHAR(T1,1,32,32) 
A=I 
GOTO 750 
CALL HCHAR(T2,B,GRF (1)) 
CALL HCHAR(T2,B-2,GRF (2) ,5) 
GOSUB 2130 
CALL HCHAR(T2,1,32, 32) 
B=3 
GOTO 750 
CALL HCHAR(T3,C,GRF (1)) 
CALL HCHAR(T3,C-2,GRF (2),5) 
GOSUB 2130 
CALL HCHAR(T3,1,32,32) 
C=3 
GOTO 750 
END 
REM *XXXINCREMENT SHIPS 
RANDOMI ZE 
A=A+INT (2%*RND)+1 
B=B+INT (3$RND)+1 


HCHAR (R(KEY),CL (KEY) ,136) 
HCHAR (R(KEY),CL (KEY), CODE 


1570 
1580 
1590 


15600 


1610 
1620 
1430 
1640 
1650 
1660 
1670 
1680 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1 #40 
1780 
1790 
1H00 
1H10 
1920 
130 
1840 
1 tO 
1U60 
IHZO 
1880 
1490 
1900 
1910 
1920 
1930 
1440 
1950 
1960 
1970 
1980 
1790 
2000 
2010 
2020 
ZOO 
20490 
2050 
2060 
2070 
2080 
2090 
24100 
2110 
2120 
2130 
2140 
2150 
21650 


2170 
2180 





C=C+INT(3X*RND33)+1 
D=D+INT(3%XRND%3)+1 

IF (A>28)+(B>28)+(C>28)+(D>28) 
THEN 1700 

ON INT (54RND*3)+1 
20, 1640, 1660, 1680 
RETURN 

A=A+1 

GQOTO 1590 
B=B+INT(2%4RND)+1 
GOTO 1590 

C=C+1 

GOTO 1590 

D=D+1 

GOTO 1590 

IF A>28 THEN 1750 
IF B>28 THEN 1770 
IF C>28 THEN 1790 


GOTO 1610,16 


D=3 
GOTO 1800 
A=I 
GOTO 1800 
B=3 
GOTO 1800 
C=3 
ESC=ESC+1 
GOTO 1590 


REM ttX*DISPLAY SHIPS 

CALL HCHAR(T1,1,32,A-2) 

CALL HCHAR(T1,A+1,33) 

CALL HCHARC(T1,A,34) 

CALL HCHAR(T1,A-1,38) 

CALL HCHAR(T1,A+2,32,31-A) 

IF (A<5)+(A>2B)THEN 1900 

CALL HCHAR(SCP1,SCP(A),GRF (13) 
CALL HCHAR(T2,1,32,B-2) 

CALL HCHAR(T2,B+1,33) 

CALL HCHAR(T2,B, 35) 

CALL HCHAR(T2,B-1,39) 

CALL HCHAR(T2,B+2,32,31-B) 

IF (B<5)+(B>28) THEN 1970 

CALL HCHAR(SCP2,SCP(B),GRF(13)) 
CALL HCHAR(T3,1,32,C-2) 

CALL HCHAR(T3,C+1,33) 

CALL HCHAR(T3,C,36) 

CALL HCHAR(T3,C-1,40) 

CALL HCHAR(T3,C+2,32,31-C) 

IF (C<5)+(C>28) THEN 2040 

CALL HCHAR(SCF3,SCP(C) ,GRF (13)) 
CALL HCHAR(T4,1,32,D-2) 

CALL HCHAR(TA4,D+1,33) 

CALL HCHAR(T4,D, 37) 

CALL HCHAR(T4,D-1,41) 

CALL HCHAR(TA, D+2,32,31-D) 

IF (D<5)+(D>2B) THEN 2110 

CALL HCHAR(SCPA4,SCP(D),GRF(13)) 
RETURN 

REM %4*EXPLOSION 

CALL SCREEN(7) 

CALL SCREEN(11) 

CALL SCREEN(5) 

CALL SOUND(100,-7,12,110,24,12 
0,26, 140, 28) 

CALL SOUND (800,-7,22,110,28) 
CALL SCREEN(2) 


2190 
2200 
2210 
DAL 
2250 
2240 


2250 


2260 
2270 
2280 
2290 
2300 
2310 
ZCI20 


SS 


2350 
2360 
PARTE, 
ZaBO 
2390 
2400 
2410 
320 
2430 
2440 
2450 
24650 
2470 
24890 
2490 
2200 
Ni" 0 è: 
PI 
ada e & 
2540 
2550 
2560 
Zi 
2580 
2990 
2690 
2610 
2620 
26130 
2540 
2650 
26560 
-AZO 
2680 
2690 
2700 
ded ASI 
SA II 
È 750 
2740 
2750) 
2760 
STO 
2780 
2750 
2400 
2B10 
2820 
2830 


2860 


2870 


2880 
2890 
2900 
2910 
Pe AE) 
2930 
2940 
2950 
Z360 
2970 


2980 


2990 


3000 


TOTAL=TOTAL+1 

RETURN 

REM 1X*FLASH 

CALL SCREEN(7) 

CALL SCREEN(2) 

CALL SOUND (50,-7,26) 
RETURN 

REM **$SET UP SCREEN 
CALL CLEAR 

CALL SCREEN(2) 

GOSUB 2460 

GOSUB 2560 

CALL HCHAR(21,1,42,128) 
PRINT "%firing'8%X%X4}}tXX*LDA 
DINGE" 


PRINT "* “mode” ‘ISXKKXK5KRKKXXXX 
,0000 
PRINT "*engagmdFIIgitsttiazIuti 
LILTE" 


PRINT: : 3 3 tk 

CALL HCHAR(19,1,42,192) 
CALL VCHAR(13,2,42,12) 
CALL VCHAR(13,31,42, 12) 
RETURN 

REM %XX$FIRING SIGN ON 
FOR SET=9 TO 11 

CALL COLOR (SET,2,14) 
NEXT SET 

RETURN 

REM *XX3%3FIRING SIGN OFF 
FOR SET=9 TO ll 

CALL COLOR(SET, 2,2) 
NEXT SET 

RETURN 

REM **XXLOADING SIGN ON 
FOR SET=5 TO 7 

CALL COLOR (SET, 12,2) 
NEXT SET 

RETURN 

REM *X*XLDADING SIGN OFF 
FOR SET=5 TO 7 

CALL COLOR(SET, 2,2) 
NEXT SET 

RETURN 

REM %*X*RADAR SCOPE 

FOR N=12 TO 21 

CALL VCHAR(IS,N, 159,8) 
NEXT N 

RETURN 

REM *XXXRADAR SCAN 

CALL SOUND (190,556, 16) 
CALL COLOR(16,12,13) 
CALL COLOR(165,164, 13) 
CALL COLOR(16,12,13) 
CALL COLOR(16,11,13) 


CALL COLOR(16,4,13) 
CALL COLOR(16,3,13) 
CALL COLOR(16,13,13) 
GOSUB 2560 

RETURN 

REM XXX INSTRUCTIONS 
CALL CLEAR 

GOSUB 2510 

CALL COLOR(3,9,1) 
CALL COLOR(6,12,1) 
CALL COLOR(8,12,1) 
CALL SCREEN(2) 


PRINT "PRESS": :"<ENTER> FOR M 
ENU AND SCORE": :"<SPACE> FOR 
FIRING MODE”: :"<ALPHANUMERIC 


KEYS> TO FIRE": i 


PRINT "RELEASE ALL KEYS FOR DE 
FENSE"” :, 3: è; 

PRINT "<<WITH 9S\4A CTRL AND F 
CTN": :"KEYS EXTEND RANGE OF F 
IRE”% 3% 

PRINT "AND ALFHALOCK SHIFTS AI 
M0F": :"LETTER KEYS> «TO SHIF 
T AIM ": :"OF NON ALPHA KEYS D 
EPRESS “"* : 

PRINT "BOTH SHIFT KEY AND NON 


ALPHA": : "KEY TOGETHER>>": 
IF DIS=1 THEN 2910 

INPUT A$ 

GOTO 610 

RETURN 

REM &X*XTITLE/SCORE/MENU 
CALL CLEAR 

CALL. COLOR(3,7,1) 


CALL COLOR(8,12,1) 
GOSUB 2510 

PRINT " NIGHT BLOCKADE": 
2" BY ANTS REIGO": : : 
PRINT " "sTOTAL; "SUNK": :" A 


CCURACY"; INT (TOTAL/TOTSHTK100) 
‘ “PERCENE* 1 n 


PRINT " PRESS NUMBER": :" -1 
- NEW GAME": :" -2- CONTINUE" 
PRINT è" «St END“3i 1" =4© IN 


STRUCTIONS": 


3010 
3020 
3OZO 
3040 
3050 
ZON 
3O7O0 
3OBO 
3090 
3100 
SA 10 
35120 
3130 
3140 


S150 


3160 
3170 
3180 
SEO 
3200 
SP10 
EZIO) 
RT 

3240 
eli 
SZ60 
SEGNA 
3280 
S290 
3300 
3310 
3320 
3330 
3340 


5350 


3360 
SSZ7ZO 
353B0 
3390 
3400 
3410 
3420 
34350 
3440 
3450 
3460 
3470 


3480 
5490 


3500 


Salo 
3520 
ISO 
5:40 
3550 
3560 
3SS70 
3580 
3590 
3600 
S6lo 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
S730 
3740 
RR 8] 
3760 
S770 
37BO0 
2790 
38900 
3B10 
38920 
38930 
3B40 
2850 
4860 
28970 
3980 
3890 
3900 


3910 


CALL KEY (0,K,5) 

IF S=0 THEN 3010 

IF (K<49)+(K>52)THEN 3010 
SLXN=K-48 

RETURN 

REM &*XXREDEF 99/4 KEYS 
R(46)=11 

CL (46)=26 

R(13)=11 

CL (13)=29 

GOTO 710 

REM &*%XXMISSILE IMPACT 
FOR T=1 TO 4 

CALL SOUND(100,600,0,700,0,-2, 
0) 

CALL SOUND(100,110, 28) 


NEXT T 

CALL SCREEN(C10) 

CALL SCREEN(2) 

CALL SOUND (5060, -7,0) 

CALL SCREEN(7) 

CALL SOUND (500, -7,15) 

CALL SOUND (500,—-7,26) 

CALL SCREEN(16) 

CALL SCREEN(C11) 

CALL SCREEN(2) 

IF SM=0 THEN 920 

CALL CLEAR 

CALL SDUND (900, 20000, 28) 

CALL SDUND (1, 20000, 28) 

GOSUB 2410 

GOSUB 2510 

DAM=INT (RND32)+1 

IF DAM>=LIM THEN 3870 

PRINT " damage report": : 

= "MISSILE IMPACT HAS WIPED 
OUT": : INT (DAM/LIM*100) ; “PERC 

ENT" 

PRINT "OF REMAINING FIRE POWER 


PRINT = e : = 

LIM=LIM-DAM 

MIS=MIS+1 

CALL SDUND (3000, 20000, 28) 

CALL SOUND(1,110,28) 

CALL CLEAR 

GOSUB 2560 

GOTO 730 

REM *XXXDEFEAT MESSAGE 

CALL CLEAR 

GOSUB 2510 

PRINT " THE BLOCKADE 165 BROKE 
N°*s s se THE WAR IS LOST": 


CALL SOUND (3000, 20000, 2B) 
CALL SOUND(1, 20000, 28) 
GOTO 619 


REM 

CALL 
CALL 
CALL 
CALL 


XX$MISSILE LAUNCH 
HCHAR(T1,1,32,A-2) 
HCHAR(T1,A+1,33) 
HCHAR (T1,A,34) 
HCHAR(T1,A-1,38) 
CALL HCHAR(T1,A+2,32,31-A) 
IF (A<5)+(A>28)THEN 3580 
CALL VCHAR(T1-1,A-1,136) 
CALL VCHAR(T1-2,A-1,63) 
CALL GCHAR(T1-3,A-1,CD) 
CALL VCHAR(T1-3,A-1,136) 
CALL SCREEN(7) 

CALL VCHAR(T1-1,A-1,32) 
CALL VCHAR(T1-4,A-1,43) 
GOSUB 2220 

CALL VCHAR(T1-4,A-1,32,4) 
CALL VCHAR(T1-3,A-1,CD) 
RETURN 

CALL HCHAR(T2,1,32,B-2) 
CALL HCHAR(T2,B+1,33) 

CALL HCHAR(T2,B, 35) 

CALL HCHAR(T2,B-1,39) 

CALL HCHAR(T2,B+2,32,31-B) 
IF (B<S5)+(B>28)THEN 3750 
CALL VCHAR(T2-1,B-1,136) 
CALL VCHAR(T2-2,B-1,63) 
CALL GCHAR(T2-3,B-1,CD) 
CALL VCHAR(T2-3,B-1,136) 
CALL SCREEN(7) 

CALL VCHAR(T2-1,B-1,32) 
CALL VCHAR(T2-4,B-1,43) 
GOSUB 2220 

CALL VCHAR(T2-4,B-1,32,3) 
CALL VCHAR(T2-3,B-1,CD) 
RETURN 

REM &**XDEFEAT MESSAGE 
CALL CLEAR 
GOSUB 2510 
LIM=0O 
PRINT " 


to . FILL 
. a a 


THIS GUN EMPLACEMENT 
HAS BEEN DESTROYED" 


GOTO 3480 


Setting Up 
Cassette Data Files on the 99/4A 





There is more to your TI cassette system than just SAVEing and OLDing programs. 
By learning to use four other TI BASIC commands (OPEN#, INPUT#, PRINT#, and 
CLOSE?#), you will be able to save and recall data with the cassette. 

Below is a short program to maintain a list of telephone numbers in an array (a con- 
tiguous block ot the computer's memory for storage of similar items) whose data may be 
saved on tape. 

There is a very important factor to remember when using a cassette tape for storage— 
always use a separate tape for your data, not the tape that contains your program! 

OPEN # This statement prepares the computer to use a data file on an accessory 
device. With cassette tapes, you may “OPEN a file” in either input or output mode. See 
line 260 for an example using OPEN# with a cassette file in the input mode and see line 
480 for an example in output mode. 

Until you have studied the T/ User's Reference Guide and mastered cassette data 


storage, always specify “CS1"' INTERNAL, SEQUENTIAL, and FIXED as part of the 

OPEN# statement. You may specify any number from 1 to 255 for the device (after the 
sign), but this number must be the same in all PRINT#, INPUT#, and CLOSE 

statements that refer to the device. The number following the FIXED option should be 

























1[o|o| |RJE e|u|a|a[e|e[wlo|afe|e[a|alela|afelo 64, 128, or 192, specifying 
1/1(0] [REI HON/E] [L{I/S(T " the number of bytes in each 
112/10 E w|ele[e[aw|n[njw[nelan|nja|w|wlw|njn|w . . 
130] [RE Hiolmie| [clomiPlulTIEIR] IMAGIA[Z/IINIE record. Select this number 
sal Ceo lr eli to be larger than the 
alcol IREM AISISIEITITIE| |DIA|TIA amount of data (characters) 
17/0] [REM | TIO|R/A(GIE| |E\X/AMP{L you are PRINTing to the 
190 ALLILI lc FARI | [PIHONIES[((1a1) cassette 
158 ici ER RS ET I CLOSE # This statement 
VIE NIDI \ENITIRIYI OIFI ID .|.l. causes the computer to 
siala LE IP TRPIE Lil“ laHalyi|t|*fi]:[:fil: finish any pending action 
2/30] [IF] [c(clHio]I[c|E[>[4]}{+|(|c{Ho]1{c|E|<[1)=|-{1 [T|H[EIN] [1]9 i, 
and then “forget” about it. 
2/40] oin] [ciHlo|i[(c|E| iclo[tio] |2}5|0|.|3|2/9|,|4 
25/9) IRE elxin PILE PRO dl see lines 300 and 520. 
2/60] OPEN] |#[1{:{"|c{s{1|“|,|1{N|P|u{T NÎT PRINT # To save data to 
lia leale lat ali the cassette tape, the 
2/80) |IN{P|UIT| |#[1]:[N{AlM{E[s{({N})|, |P|HIOIN]E[s|{[N]} PRINT# statement is used. 
aa mim RA The items to be saved are 
310) GioTio! |19le formated into a “variable- 
HO =) ME TIERAI (DUGIO fi (ETUI,E list." An example is in line 
34/0] [P|RII|NIT H|I(CH| [R|E[CIO|RID] |N{ulM|B{E|R|" 500. 
3/59 NIP|UÎT NIT|RjY INPUT # To load data 
3/60] |IF| [CIEINIT[R\Y>{1(0)+{((EINITIRIY{</1])=|-(1] IT{H[EIN] {1(90] {rom the cassette tape, the 
3/70] |clalL|L| [c|L|E|A|R 
38/0] |P]RII[NIT] |*|E/N[T|a|y] NUMBER] |"|, [ENTRY], |‘ :|"|:| INPUT# statement is used. 
Sura TIA. ‘| |'|°| An example cf this is shown 
3/90] |P|RIIINIT| {*|1|-|E|N|T|E dl N\AMIE|"|:|" in line 280 of the program. 
PIHIOINIE] |NluM{B|E{R|"|:{*|3|-{T|R|y| |AlN 
| l:[“[a\-e|x[t{t] |R[Elv\tleW |AlNIDI (E|NT]R Note that the format of the 
4/00] [I[NP|u|T| [c|HIojI|c variable-list” must match 
4|1(9| {I{F| {{[c{H{o{I{c|E[>[4|}+[({c|H{o]1[c|E|<[1]){=-{1 | that used in the PRINT# 
alzo] fon] [c|kloli[c|E| |clolt|o| [4}3|9|,/45/9|,13|3/0|, [1/90 statement that recorded the 
4130 NPT. *NIA El?| |"|:|N/AME[S|{|EIN|T|R|Y]) data. 
O 7/0 | i 
4/50} |IIN{PU[T| |*|P[H[OÎN ?| ||: |P|HIONJE]$|(|E/N|T{R|Y|) Just entering this short | 
alela| [cio[Tlo] {3/7|0 program and seeing how it 
417/0| [RE: s\AlviE| |FI|L|E| [To] |T|A[P|E La oi ta te will 
4/80] OPEN! {#/1|:|"[C|s|1|"], O!U/T[P|U[T|,|I|N!T|E|R|NAjL|,|s|e|uje| WOFKS with tne cassette WI 
TI ALL, F|I|X|E|D| |6 help you think of other ways 
cia] HOG At TO, na to use this technique for 
50/9] (PIRITINIT] (#1|:INAME[s|cIN})|,[P|H|oINIEIS|c|N|) i q 
Me SRL saving other types of data. 
6 . 
53/0 OTO) |1/9/0 — David Brader 
5/4:0 N/D 


ALLE CONTINUG AttHuesie SUI "Files" INSERISCO IL PFROCRAMMA 
SoPRA- L'INfeno aRGOMEN<ZO E° 40AT0 MRATIA4O SULLA 4% N64. 
QuISTA = SU SPACINE IN ALLANO. (A disposizione ) 


| GASIC | 





Di 
A SORPRESA 


100 CHLL CLEAR 
110 PRINT "TERVERSEE MOUVEMENTEE 


120 INFUT "DIFFICULTE cl A di 
DIF 

130 IF DIF<1 THEN 120 
140 IF DIF>4 THEN 120 
150 DEBUT1I=2+INT DIF LA 
160 DEBUT2=16-INT DIF 2 
170 FINI=16-DIF 

130 FIN2=3+DIF 

190 DIM Bci5) 

200 NT=0 

210 NC=0 

cel C=i 

c309 FOR I=6 TO 5 

40 BCIS=INT END=41+2 
2230 NEST I 

260 FOR I=13 TO 15 

crO BoI5=INTRND=4)+16 
230 NEST I 
90 bOZUE 870 
300 6O0SUB 950 
310 PRINT ©: “CHOC 53 
ES) i" 

320 A=i 

330 REM 


:": "TRAVERSE 


340 D=0 
350 CALL KEY (4s CAR» NOLI 
360 IF CRES=93 THEN 400 
0 D=-1 
280 A=- cH= 03 
290 GOTO 430 
400 IF CARG68 THEN 430 
410 D=1 
420 R=- cA=03 


430 CALL GCHAR C11,1Csli 
440 CHOC=- W=1303- (W=131) 
450 CALL HCHARC1131C,32) 
460 C=C+D 

470 IF C=0 THEN 490 

450 C=1l 

490 CALL GCHAR (119 Coli 
500 CHOC=CHOC- cbi=1300— (= 1313 
St{0 IF CHOC=0 THEN 530 
520 CALL SOUND (2005440, 53 
530 NC=HC+1 

530 AFF=NC 

S5 0 LIG=22 


s6l COL=13 


30 GOSUE 1010 

330 GO0TO 610 

290 CALL HCHAR c11s0,125+A) 
600 REM 

510 FOR I=é TOS 

520 CALL HCHAR CE cId a Is 320 
6520 IF BcIiS*FINI THEN 650 
540 ECId=INT RND=41+DEEUTI1 
550 EI2=BI+1 

660 CALL HCHAR E 13, Is1313 
&r0 NEST I 

6350 REM 


690 FOR I=13 TD 15 

€00 CALL HCHAKR EI 1132) 
10 IF Bel: FIN® THEN 730 
€20 EcID=INT €RND=4) +DEBUT2= 
#30 EcIN=ECI3-1 

140 CALL HCHAR<E 1313130 
#50 HEAT I 

‘60 KEM 


770 IF C<18 THEN 340 
780 NT=NT+1 

790 AFF=NT 

800 LIG=23 

810 COL=19 

ac0 GOSUE 1010 

330 CALL HCHAR è 11» 155352) 
3530 C=@ 

Sal 60T0 340 

3650 REM -------------- 


I FOR T=é TO 15 STEP 9 
CHILL  VCHAR:Tsded24a 7i 
O CALL YCHAR ST. 10124, FI 
0 CALL VCHARSTs1isi24, 70 
0 CALL YCHARST. 171124, 7) 
U HEAT T 

O RETURN 

U REM --------------_- 


950 CALL CHAF 128» "001 03AS410552 
404": 
Se CALL CHAR 129, "001 03AS4S01C2 
440" 
970 CALL CHARC130s "00787 EFC7E7SF 


AD rt e n 0 DI 000 
«fa ii file = O DI =] 


CFEti 

Sal e CHAF 1531» "007SFOF7S7SFC7 
959 | RETURN 

1000 REM -------------—- 


1010 MHE=sTEE AFFI 

1020 LONG=LEN CADI 

1030 IF LONG=<= THEN i0alii 

1040 HE=" “EHE 

1050 CALL HCHAR:L IG, COL 1ASC SEDE 
CHE 0 1912003 

1060 CALL HCHAESLIG: COL, ASC SED$ 
CAB» 20 1000 

10f0 EETUEN 


n DOS ANSOB 08SIO = aa'WIUBSNI I0UdH8 435 OST] {59 01 STI Od ni de 
SSSS85£ DOSI SIOI D£6T O ap'StAvI04HE HI OG 279 3108 0Sil ang: 6 an liti nua ca 
-Sx23558 A LXIN 0961 029 0109 0951 I52 0801 gi dali 
» na ch Ea i = no OZOZ ENSDO 0081 I= 0001 is ai i+4=1 060 IR9 SNCca az; 4911 TIVO DIS 
EST 0960 ISTE OSHI NGHI SASCAISH HI RAT GIZI NITAL CSV II o6e teen iii iI dI 13 35070 005 
3 a5g2È OZZE NIAL SE=4 di 0651 139 0711 I6I 8509 0001 1-1=1 dé 
DO i a JO Gi I3A #04 0561 961 ANSOG peci CS 059 N3HI [39 ci 00/ (ARE 089 
u - ERS “ed ea da 0 tM/S) è ITTIUIONI IMIIHS 187 INIMA 0907 Gre N3HI 124 31 069 i LXGN 088 
> 35 sf c(N/SI & FHITUHA B0*003 HLT, ISTE! INTMA 0251 iaia TTT an 1 
> all (AISAtsà © HMI DADONS {NANI OTCI 06 fg Di 80L N3HL 132 31 089 (RISO CAI SH (k289 00080 (ESE COSOII3 LSONI 068 
8 riesi | V6f INS09 OOO ggiz N3HI OTO LO LXIN 099 
SI SAI,i 3UHOHII 40 HAL « LAANI 0761 (ETISHRCTISORC RI SOR OI SERCIISVINTTE, = OTTU IUOTUA, INI SOT peg gagi zegapoogo- FODS*CtISR (088 ' Iso CDS DO SRITE INdNI 05 
= SI = SITI TISIOGIAI! Fa ‘Pf; I sa ivi - ; pr si BLU I Uni 
SS ico due da IO lu dial | n {N/S) £ 3NGA WA=!$1 INTHd 0701 041 8IS0G 069 IRA GI A=K Hd 00t 
rig STA aa ASI 0207 0551 0109 0061 (KTBHI,® GIL, #3(K)69f,1 IUOLLINOS, ISPCKISGIS(XISGrictnagi: [NIM3 0IOI C 3315 GOL IA H0I dk 
= HAT) TINI 0702 A LKGN 0681 sie a ana OS6 NHL» ‘.=(EI6H dI 0007 $T05, ILIWGGNI IUGITe®18%5, 1 DIATHOMV, 116755 INIUA 078 
= DAGI ENSOG OTOZ == 0CET 0109 0881 egg risa Dt 364513 Nd 
> sz0z ansoo gegio (A'SO"ci PUDILINIS DAD, INANI 0617 [IISH HNANI 066 suit Letra co” 
@ 0EGT NEMI SAGERISW AT DART 09CI DIDO 08#1 t3,3SS3GBINI 10 9431: 187 INIHd 086 Lidi | MNEEINI I ui Li 
= 3 Di T3À HIS 0697 MPRCSaE RR MII AI OL ADEN N BAG HORGMON UNMS O OULATONI 3AMNNDI ION 3B) 2 STI INI8d 049 TTT Lo ne 
Re SAîe d FAIONII BO DTOLIL, IMANE On On pv RETTO: 
n noe "e SER INIUNUOISOY 7015087 DIAZHONH IN0IZ4369 Toita (OGUI DAOANI SNA: Os INIHG 059  _RANLAY 016 
S KIROÙ ste D0SI 009 0HH1 086 #N609 079 ppradii ja 
= _ DrO2 eNS08 ce i gray otgro CAPSHFeGO DIGITI DADIMa LNdNI OSF1 076 NEHL + ",=(1159 dI 06 NUMISH 019 PI ST RE 
= 3 DL TS HDA O88T  oegz gNEDS DIET 0751 0109 0241 (KI39 [MANI 096 estera 
LAVSHESI VB, S(AI695,1 IUGLLINDS, ISCA)SGESCAISGISCATEB INTHA 285] DIGI N3HL SE=# dI 07H1 :1,350LL NOS, 181 ININS 066 Ma RARI AIR NEDO: LEDA: RRLSS SE ANIA a 
(A189 È i ra di ud in “ide di X LXGN 07£ 
Pre Dal 30509 008] SAR NIHI a a=f1)80 di dr "/}) bivreyiivicolivianio iso MITI INTU n 
LL 2 183 (8/9) è CIMA FICANSHI!,! GRIl,i! INIG DACI {0050 IRdNI dia imille ss. n se - 
4A de :I$TtA E, "N 300009, 1381 INTA4 00%] 0487 NGHL SC=4 di 0801 :32350H, 187 INTHA 076 Moti 
-- DO NALI ISTI CIBI NIHL SANIANSO SP OLI 36E ENS09 DLSI DLE NGRI + as 21 OI glia 
mefz?S 3 DL TSA WOS oggi 230 00/8) di BIABAaE3(A)695", IMILLINOS, #5 INIMA 0951 (K75G IaNI 006 asian - 
i ©; % ’ A HE DIOIMINATI LOHI IE] INTUI NA a ISHINILIO SOI, i OAI DTNUMISIS 1Satt INTHG OLI 
SOBRIO Sid FDAII HI SNOLLIOIS, LOUNI OSL URI 010 VARZI e 28) un'ane peg 
mr - no HIT TH 0601 G4T FNSOG dati ({184 INANI 088 Sbi GINid ISdINO HN ssi rada "4 NIdO 697 
6566 0EsI LOG 052 t3218/S) è DIVAS ITCA)STRI, I3I0M0 55 INING OSS tte OLI La 187 ING 048 grezze PRES) LI; 209 talia o 
SZ > i ADET HIUI N0-H d] A7SI i A ODMATT, 128] ININMd 098 MAIINTTISTO NTATUNI Mi Bae II TINI 07 
TA OZ0T ENSOg OZsi 0o8f AGHI 3134 dI OIL] Dia N CARLI SI IRIGG DI a FI3L0108RIE DIAIHZNNO 18) INIBg 005 de 
a E D6SI MORI 3A dI OILI DEI 8NS08 DISI i3{Ki 056 4379 1793 005 a RR OEI 
no DEGTONaML 0=)4 al ooggo- PPaUN/SI DIUVA,SIIA19955, "LIO3 9940, 55 (NINA 0001 s=X 048 DISUTI HUNLIA 046 RAFA 000 SE 
see Aia i INZITIFNSIA HI 391009, LOANI 0691 0SEI NGHI GESH 31 0677 Sit, LEDIIOIMARIE 3HONS LOGHI 059 0#I 0109 098 B#-424 017 
2 a WII 1180 0891 067 80509 0821 RITI TH) 008 DLG NHL a09,=S8 3 055 pride 
© 700 ORGE FOIS "OCA "ORLI ‘ORSI DICH NO 0/9 ta (M/S) CO DIANA, ST(ANSHSS, *OTOLILS #3 INTHG O4ZI HE IMOI VISI Id NY 216 si, 11/09, LNGNI 065 ue 4 
mm 279 NIHI 0=4 JI 0991 37514) 452391000, 8! INTHd 0971 OLST'OIZIAOGIT OLOS 4 ND 008 anita Ade 
Korg peo tette (OSTIA COSTI SH*COSTISO*FOCTI SO TOGTIAA*(OGTISY HIO OLI 
DET ENSOO 0697 nn OSZI NIH O=)A dI 0877 09£ NOHI CH dI 086 P 3508 NOILdO 091 
COA#a do THYTHWA #0 3I000Ia LOdNI O2ZI 079 NOHI O=4 di 042 des. 1) 
a TIWLOL NDISIA Seitat WARIO Id BONSOIY fetta 0I0LII Nd BONITIN C, ENING 009] HIT) TI9I O2ZI 3 si nata Pi 
ti,3 3NOLI ORE 80509 OIZI VILISSO) DO TINNIN OI/6 49 [O HId IMIIT OSIO NIN OST 
MIS HId VIMIDIY/ Ze 12301009 VId GINSIIY Teit,3THGIZAIHA DUINO 0, INTHS 0291 Ha "ZUTEMA "I0UdHR NIH DO] o6i 8n508 09% rile 
113226] ININd 019) 260] 0109 dall DRIRII,A [081] DITHZZIONASIA £, INIYJ 056 434601) FINIIIABE RIOT] 
+ THETI INOIZYIZIONISIA 387 SNIHA 009] Izi 0811 MILIARE. i AI: die dint 
risdezageni nec ansoa agito FF [SGD] DINGMINISNI T,05.3T0410NIHd DACHNB 0, 158% INIVd OSL 








2EM OR J=4 TO 22 STEP 6 
ct Ren EVASION 710 dA HCHARC 1.5, 120,13) 
e REM © «OSMSnEZIGETISIRE “a CALL HCHARCJ, 19, I € A SIL 
pref dlfi g di LEN STRSCSCI? | 749 I a to 16 steve e | T_- 
pe CHR=ASC SEGSL STRESS ia 191) sa. CALL HCHARC 4,5, 120,4? i 
169 CALL HTHAR 1,19+4, CAR? 770 CALL HEHARC 1, 19, 120, 16) 
ST.1 ,4 
{7A NEXT 789 CALL HCHARS 4, 87 
160 PeR set MANY? 7920 HEXT ARR 5.120,26) 
199 RE 209 CALL 9, 126,2 
i =, 120.26) 
n Zarate de Sri uma Ri. "101 A10101210101") 
21 820 C ; a 
220 MCON=MCO 090 CALL VOM E. 4, IL) npnnon®) 
249 MON=MCON- 859 CALL “ SCERO di n 
‘ z an." IZECRAZB44CE" > 
259 IF K<>68 THEN 270 966 CELL CHARC SA, 304438 
269 MCON=MCH+1 8798 CALL COLORC193,5,1) asi 
233 MRA=MRN- 399 CALL COLDR14,3: - 
299 IF K<>88 THEH S19 3€0 REM SET INITIAL POSITIONS 
309 MEN=MRH+1 319 MSC 1,12=3 
310 IF_CMCN<CSI+MCNIB2I+CMRNG1)+CMRN?24) nr 329 MSC 1,20)=5 
THEN 410 ira 333 NSC2, 1923 
329 CALL GCHARCMEN, MCH, X> 369 HSC3, 295 343 NSC2,2)=30 
3 1 1210 970 NSC4,1)=23 
339 IF xX=149 THE 3+(%=122)THEN 419 Sa HSC4, 25530 
340 IF (M=1260)+K=121)+(X=1225TH as St «i . 
350 IF (MRN=MRO0%X( MCH=MCO THEN 419 999 Ms="SCOR 
369 CALL HCHARC MRO, MCO, 32) 1009 FR=1 
379 CALL SOUND 199, 339,2) 1910 ia vani 
399 CALL HCHARCMRH, MCH, 130) ht sig ei A 
390 MRO=MRH 1 e asa 
ee dg pa MESÙT si 
419 RETURI du falla 
, To (87 R J=1 TO 4 : 
e Rs INTU RMEIA Mi Lore CALL HCHARC MSC Ji 1), NSC 112): 140) 
(A = LEM nei 
n CR: 12=MRN THEN SI 105 + MEXT 
449 IF NSCR:157 iaia da 
459 CALL HCHARKHSCFR, 19, NSF, 22, STRCR)) 1090 MRH= 
‘ , 4S +SGNC MEN-1HSR,1025 11099 MRO=11 
460 NSCR, 19=HSCR, 1)+SGNCMRN-HS AGD riot 
479 CALL GRHARCHSCR. 13. MNECR, 2), STRCR 1119 oa 
489 IF STRCORI<>1423 THEN 500 pr DALL sister, bias as 
STRERI=SSS flora Pipa ica 
se CALL HEHAR(HSCR,19,MSCR,29,142) 1149 FOR pi 
595 CALL SOUND 109, 250,2) I 1150 Gase pi 
519 IF NSCR,202=MCN THEN 590 ssi DIS ae o 
529 CALL HCHARCHSCR, 19, SCR: 23: Ri 1179 Saia 
539 NSCR, 22=HG Ra 29+SGNC MOH-NHS pil 1159 -—4- 
549 CALL GOHARCHSCR, 13, HS sini i, ISO ca CRETURED 
559 IF STRAR24 51459 THEN n È dica 2660 To 119 STEP +20 
"69 STR0(R3=S2 tn i 2 toi i lo A 
589 CALL HCHARCNSCR, 11: HSCR, 23,140) 12 co CALL SOUND 200, 2) 
THEH 1210 1240 - cile 
699 RETURH Di si 
ara La SEA 1579 GOSUB 1930 
520 RANDOMIZE sca CALL KEYC(9,K,S> 
630 CALL a QABOFFFF" > pre IP S=b THEN 1280 
549 CALL CHARC 120; "aGaDe 209 IF K<>89 THEN 1380 
659 REMO SET UP MAZZEO Do, 2a 
E69 FOR Jd=8 TO 20 STEP & 13 


275 CALL HCHARCJ,5,120,2) 
639 CALL HCHARCJ.14,120,9) 
239 CALL HCHARCJ:24:120,7) 
99 MERT J 


359 
a7r9 
399 


GOTO 1530 
FOR J=1 TO LENÎIIS) 


CHE=ASC< SEG MS, J4,10)) 
CALL HCHAR: FR,IPC+ I CHRI 
MEST 

RETURN 

END 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


230 


240 
250 


260° 


270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


410 


420 

Pia 
A IO 
i 4 fì 
450 
460 
470 


REM x 24 


REM xPER CAMBIARE IL NUMERO DI UFO 
DA ABBATTERE PER VINCERE CORREGGERE 
IL VALORE DI 2 ALLE RIGHE 121-134 


FAFEAEKEEEELEEKA 
* x 
x BASE ALPHA x 


AEKKEXKEKNEEKFKZEKKKKX 
DI GIUSEPPE CECERE 
71.1.1984 
TI-99/4A TI BASIC 


CALL SCREEN( 5) 
CALL COLOR(2,16,5) 


2=Y 
CALL 
Af=" 


CLEAR 
2210BASE ALPHA" 


GOSUB 151? 


FOR 
RAND 


H=1 TO 29 
OMIZE 


RIGA=INT(RNDx16)+1 
COLO=INT(RNDx32)+1 


CALL 
NEXT 
CA LL 


CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
Ca LIL 
CALL 
CALL 
CALL 
CALL 
CALL 
FOR 

READ 
CALL 
DATA 
Ti, 
32,1 
DATA 
Sly 
1 35 1) 
DATA 


HCHAR(RIGA,COLO,46) 
H 
CHAR( 128, "FFFF9I999IFFFFFFFF") 
CHAR( 129, "FFFF9999FFE7E7E7") 
CHAR(130, "000FPpidFPFEFFFP" ) 
CHAR(131,"FFFF8181FFFFFFFF") 
CHAR( 132, "FFPFC3C3FFE7E7E7") 
CHAR( 133, "FFFFCACYFFFFFFFF") 
CHAR(134, "FFFFY 30 3FFFFFFFF") 
CHAR( 135, "A9PPFFFFC3C3C3C3") 
CHAR( 136, "FFFFFFFFFFFFFFFF" ) 
CHAR( 137, "9pppppppr8p8”) 
CHAR(138, "9pppppip38282929%) 
CHAR( 139, "2Fogogogopogo gog) 
CHAR(140, "9999910140494" ) 
CHAR( 141, "G4G4ga daga ga pata») 
HCHAR(21,1,136,128) 
G=1 TO 24 

Q,T 

HCHAR(29,Q,T) 
1,128,8,128,19,128,15,128, 
28,2,129,9,129,11;129, 16,129, 
29,6,129 

18, 133,13; 146,23, 4438 7,19%, 
36,3,139,12,139,29,139,28, 
5,141,14,141 

22,141,39,141 


NEXT G 


FOR Wa 


1 ro 20 


READ J,F 


CALI: 
DATA 
152,Ì 
128, 


HCHAR(19,J,F) 

T, 128,1, 128,6, 126,712, 
29,18, 128, 18, 126,31, 120,31, 
11,134,17,130 


| basic | 


480 


490 
500 
510 
520 
530 
540 
550 
560 
570 
5B0 
590 
600 
610 
620 
6 30 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
a 30 
040 
950 
G60 
aTO 
980 
990 
1000 


DATA 7,137,3 138,12,138,2%, 
138,28,138,5 149,14,149,22, 
140, 39,149" 

NEXT M 

RESTORE 

CALL VCHAR(19,24,133,2) 
CALL VCHAR(19,25,131,2) 
CALL VCHAR(19,26,134,2) 
X=18 
Yu 1 
Une 1 
B= 29 
Wx:1 
Du 21 
CALL 
CALL 
CALL 


CHAR(125,"d0183CFF7E3C") 
CHAR(119, "090989 CEFFFE") 
LL COLOR(12,11,5) 

CALL COLOR(11,8,5) 

CALL. HCHAR(U,B, 125) 

CALL HCHAR(X,Y,118) 

CALL HCHAR(W,D,125) 

IF (0=26)+(W=29) THEN 1370 
CALI KEY(f,N,5) 

IF N=68 THEN 79 ELSE 719 
X=X-1 

TP N=83 THEN 720 ELSE 739 
X=X+1 

TP N=75 THEN 742 ELSE 759 
X=X+2 

IP N=76 THEN 859 

IP S=f THEN 829 

IF X>18 THEN 789 ELSE 79# 
X=18 

CALL HCHAR(X,Y,119) 

CALL HCHAR(X-1,Y,32) 

CALL HCHAR(X-2,Y,32) 

IF X=18 THEN 939 

CALI, HCHAR(X+1,Y,32) 

GOTO 939 

CAT.L SOUND(1599,1769,2) 
FOR I=3 TO 31 STEP 4 

CALI COLOR(4,9,5) 

CATL HCHAR(X,I,61) 

CALL HCHAR(X,I,32) 

TF (X=U)x(T>=B) THEN 1139 
IF (X-W)x(T>=D) THEN 1260 
NEXT I 

RANDONMIZE 

T:= TL INT(RN Dx 3) 

W-Wi TNP(RNDx3) 

IF 1J>29 THEN 077 FISK 989 
U=20 

IF W>2f THEN 99@ ELSR 1039 
W=27 


IP U-1<=gi THEN 1919 RISE 1028 


1010 
1020 


1030. 


1040 
1050 
1060 
1070 


1080 
1090 
1100 
4110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
12410 
1220 
1230 
1240 
1250 
1260 
1270 
1250 
1290 
1:300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 


1470. 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


U=2 

CALL HCHAR(U-1,B,32) 

IF W-1<=f THEN 1049 ELSE 1@5g 
W=2 

CALL HCHAR(W-1,D,32) 

IF U-2€=2 THEN 1970 ELSE 1989 
U= 3 

CALL HCHAR(U-2,B,32) 

IF W-2<=9 THEN 1192 ELSE 1110) 
W= 3 

CALL HCHAR(W-2,D,32) 

GOTO 699 

CALL SOUND(590,-6,0) 

K=@) 

Z= Z4 1 

CATI, CHAR(96, "FFE7C30981C3FFFF") 
CALI, COLOR(9,9,8) 

CATT, HCHAR(U,B,96) 

CALL HCHAR(U,B, 32) 

K=K+1 

TP 2=19 THEN 1410 

TP K=4 THEN 1239 ELSE 124% 
U=1 

IF K=4 THEN 609 

GOTO 1160 

CALI. SOUND(599,-5,2) 

K=0 

z=Z+1 

CALL CHAR(96,"FFE7C30081C3FFFF") 
CALL COLOR(9,9,8) 

CALL HCHAR(W,D,96) 

CALL HCHAR(W,D,32) 

K=K+ 1 

IF Z=12 THEN 1410 

IF K=4 THEN 589 

GOTO: 129) 

Aî="%101 ATTERRATI" 

GOSUB 151? 

FOR K=1 TO 509 

NEXT K 

B$=STR$(Z) 

Aî="0102ABBATTUTI "&B$&" UFO" 
GOSUB 1519 

Aî="231YANCORA? (S/N)" 

GOSUB 1510 

CALL KEY(f,KEY,STATUS) 

IF STATUS=@ THEN 146) 

IF KEY=83 THEN 1/09 

CALL CLEAR 

END 

REM -SUBROUTINE PRINT AT- 
R$=SEG$(A$,1,2) 
C$=BEG$(A$,3,2) 

R=VAL(R$) 

C=VAL(C$) 

FOR I=5 TO LEN(A$) 


1570 A=ASC(SEG$(A$,L,1)) 


1580 
1590 


CAT HCHAR(R,C,A,1) 
= Ca 7 

1600 TF A=32 THEN 1620 
1610 CALL SOUND( 10, 1599,0) 
1620 NEXT I 

1630 RETURN 


Descrizione delle riche 





100-530 : VISUALIZZAZIONE SFONDO 
540-660 : DEFINIZIONE COORDINATE DI 
PARTENZA FE CARATTERI 

DELI! INTERCETTORE E DEGLI 
UFO 
RTMANDO NEL CASO DI ATTERRAG= 
GIO DEGLT UFO 
680-840 : SPOSTAMENTO INTERCETTORE 
850-920 : VISUALIZZAZIONE E CONTROI= 
LO INTERCETTAMENTO SPARO 
930-1120 : SPOSTAMENTO CASUALE 
DEGLI UFO 
1130-1250 : VISUALTZZAZIONE: DEI 
L'ESPLOSTONE DEL 19 tITFO 
- INCREMENTO NUMERO UFO 
ESPLOSI 
: VISUALIZZAZIONE DEI= 
 L'ESPLOSTONE DEI. 2° UFO 
- INCREMENTO NUMERO TTFO 
FSPLOSI 
1370-1500 : RIGHE DI CHIUSURA 
1510-1630 : SUBROUTINE PRINT AT 


670 3 


1260-1360 


Principali variabili 


= COORDINATA RIGA INTERCETTORE 

= i COLONNA INTERCETTORE 
= u RIGA 1° UFO 

= Ù COLONNA 1° UFO 


Ù RIGA 29 UFO 
COLONNA 29 TIFO 
= NUMERO DI UFO ABBATTUTI 


Rd EI IH< 


Hi 


Funzionamento 


Tenere premuto il tasto ALPHA LOCK. 


Bisogna evitare che gli UFO atterri: 


no. La vittoria è prevista abbatten: 
do 10 UFO, ma si può variare il nu= 
mero correggendolo alle righe 1210. 
1340. Premendo il tasto D l'inter= 
cettore sale di una riga; con il 
tasto S scende di una riga; con il 
tasto K scende di due righe; con il 
tasto L spara. Gli UFO sono aziona= 
ti dal computerj possono scendere 
casualmente di 0,1,2 righe. Alla 
fine con il tasto S il programma 
ricomincia. 


Ho ricevuto il 2° numero della rivista del Club : è ottima, ric- 
chissima di spunti, programmi e suggerimenti, Sono lieto dell'interes- 
se da voi dimostrato per il mio programna-subroutine "PIXEL-TRAIL- 
CIRCLE", Ritengo però opportuna qualche precisazione, 

Con tali subroutine Fx.Basic è possibile non solo realizzare UNA 
retta od UN cerchio, ma è possibile (semplicemente richiamando più vol- 
te tali subroutine) sovrappore diversi segmenti o cerchi o disegni com- 
plessi, tutto questo SENZA CH5 IL PLOTTAGGIO DI UN PUNTO ALL'INTERNO 
DI UNA NATRICE GIA*' DEFINITA DISTRUGGA L'INFORMAZIONE (pattern) PRECE- 
DENTENENTE CONTENUTA, La velocita’ di esecuzione, inoltre, è diventata 
(con la nuova versione) accettabile. Naturalmente, e ci tengo a farlo 
sapere a tutti gli altri soci, chiunque avesse suggerimenti, critiche, 
obiezioni oc eventuali possibili miglioramenti da apportare al program 
ma-subroutine in questione, è pregato di farmelo sapere !! Qualcuno mi 
ha obiettato che la funzione CIRCLE non realizza un cerchio ma una el- 
lisse: qcguesto non è dovuto ne a cattivo funzionamento del programma, ne 
a difetti ci regolazione del monitor, ma esclusivamente al fatto che i 
pixel del TI 99 non sono quadrati, ma rettangolari ! Volendo, chi lo 
desidera può ridefinire la funzione in modo tale da compensare lo schiac- 
ciamento del cerchio, per esempio sostituendo l'equazione della circon- 
ferenza con quella ci una ellisse con l'asse minore parallelo alle ri- 


she del video. Questo però comporta un falsare l'informazione contenu- 
ta nella mappa video del TI 99, il quale sì ci farebbe vedere un cerchio, 


ma lui "penserà" ad una ellisse ! A mio parere, quindi, è meglio che il 
TI 99 "pensi" ad un cerchio, anche se noi veciamo una ellisse, questo 
proprio per evitare di falsare la logica del programma. Inoltre; con «RI 
programma-subroutine in questione, il numero massimo di caratteri vi- 
sualizzabili in modo grafico è di 143-32= 111(in quanto lavora in am- 
biente Extended Basic); se si tenta di definire il carattere con codi- 
ce 144, il programma si blocca, Questo significa che le capacita' gra- 
fiche in alta risoluzione del TI 99 con linguaggio XBasic (per quanto 
riguarda il tracciamento Gi linee) sono limitate a 111 matrici © X 8 
cefinibili dalla subroutine, Se cualeuno riesce a fare di meglio, e con 
una velocita’ Gi esecuzione più elevata, è vivamente pregato (e gliene 
sarei veramente grato) di farmelo sapere !!!! 

NANNONE caRLo . SqnAnaLE fono 104° 40035 CHIVASSO (10) 


MODENA 27/3/1964 PASQUALE ALBERTO 
Via lionteverdì 32 | 
47100 MODENA tel.059/373604 
Ecco alcune infornazioni sul TI99/4h: 
Se dopo l'esecuzione di una CALL KEY(4,K,S) è eseguita una INPUT non 
è più possibile correggere quello che si scrive in questa IUPUT(cioè 
i tasti con le freccette non funzionano più regolarmente). 
Per evitare ciò basta fer seguire alla suddetta CALL KEY una CALL K&Y 
con un'altra unità di tastiera(cioè 0,1,2,3,5) 


«e 











Per sfruttare i files su cassetta anche senza il controàlo sul uotore 

del registratore e sufficiente seguire le istruzioni date sul video 

per la registrazione. 

Per l'ascolto si può:1)Riportare il nastro al punto in cui era al uowens 

to in cui si è premuto REC e poi seguire le istruzioni(mantenendo così 

una buona sincronia con la registrazione). 

2)Fortare il nastro all'inizio del segnale continuo(quello che serve 
per la regolazione iniziale del livello)e prenere PLAY non appena le 

scritte delle istruzioni si sollevano di i riga mediante uno scroll. 


Lo 
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SCHElA PER COLLiGARE JOYSTICKS ATARI AL TI99/44 





i 5 TISSILA 
& 
| 
3 RE | 
- TIT 3 s TT 
L } € 1 4 | 3 Z 
: 
ga È 3 i, 4 $ 7 6 TOVSTA 


1 diodi servono per evitare interferenze tra un goystick e l'altro qualora 
siano usati conteuporanesmente. Io ho usato diodi Ah119(1li avevo in casa) 
ma credo cLe la loro scelta non sia critica. 
TI99/44A:piedino/fungione/effetto sulla CALL JOYsl(a,;xsy) 
i libero 
massa joyst£ck 2 
alto(y=4) 
fuoco(k=18 nella CALL KEY(1(0 2),K;5) 
sinistra(x=-4) 
libero MATERIALE OCCORRENTE: 
massa jogstick 1 € ASCHI CANNON S FOLI 
basso(y==4) 1 FELUINA CANNON 9 FOLI 
destra(x=4) i PEZZO DI CAVO 7 POLI non necessariamente 
alto schermato 
basso 10 DIODI 
sinistra 
destra 
libero 
fuoco 
libero 
massa 
libero 
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A PASSARE DAL TI 99 ALL' 


IN FONDO ALLA RIVISTA PER IL PC 


QUESTO PROGRAMMA IL PRIMO DI UNA LUNGA SERIE ESCE IN SIMULTANEA CON 
CHE NON TROVERETE NESSUNA DIFFICOLTA' 


QUELLO CHE METTIAMO 
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Notes: 40 columns max; \ow and medium resolu- 
tion wi 16 colors; ‘900d” for color graphics; Most 
brands with audio capability — otherwise, separate 
amp. speaker required (see Fig.3A). Extras: standard 
audio; video cable with RCA piugs ($3+) 


(THERMAL 1200 BAUC: 5175) 


OTHER IRDPARTY 
SERIAL PRINTERS i$150 +) 


«RS232 SERIAL UP TO 4800 BAUD) 





Notes: IBM Compact Printer ($175 inciudes attached 
cable) operates at 1200-baud max. 29232 senal in- 
tertace Supports up to 4800 baud with compatribie 
thard-Qdarty printers. Extras: iBM Adapter Cabie for 
Serial Devices (925) 


ACOUSTIC COUPLER iMODEM) 
FOR PHONE HEAOSET 


OR 
DIRECT CONNECT TELEPHONE 
MODEM JUNCTION 


«7 ADAPTER 


KLAS232 SERIAL. TELEPHONE 


300 BAUD OR 1200 BAUD) 





Notes: Extermai modem is practical if already have 
300-baud modem and dont need the sertai port for 
prenter, or if needs require 7 communica 

non with a higher<peed modem. Extras: IBM 
Acaoter Cabie for Seria Devices 525) standard 
telephone juncuon adapter ($3+ 
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TV CONNECTOR 
:RF MODULATORI 


«BM 
TV CONNECTOR 
(AF MODULATOR) 





Notes: Different inputs allow simuitaneous CONNeEctions. SUDDOrTS all 
Ooior! Monocnrome modes except 4-Color at Nigh resoiunon: ageguate 
for color graphics: best’ for word processing; business. Extras: IBM TV 
connector ($30), standard audio/video cabie with RCA piugs ($3 +1 


Notes: 40 columns max: iow and medium resolu- 
tion with 16 colors: ‘adeguate ‘ for color graphics. 
Extras: BM TV connector ($30) 
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JOYSTICK PORT 2 


i: 
Mi 
LIGHT PEN 


L SYSTEM POWER 


| 
| 
eri (CASSETTE 


FOR LATER USE 
KEYBOARO 
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Notes: 30-column requires dand width .14Mhz: 
grey shades; best for word processing, spread 
sheers, and business applications; Most versate in 
cOMmbINATON with ccior TV isee Fig.3B). Extras: Stan 
dard audio; video Cabie with RCA piugs ($3+). 
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CENTRONICS {MP TO 200cpa; 51995) 
PARALLEL n 
INTERFACE Satisica 3RD-PARTY 









PRINTERS ($150+)} 


BM 
DARALLEL 
PRINTER 
INTERFACE 


Notes: Parallei Printer interface ($99) supports 
parallei (’Centronics-companbie ‘') pninters and Dior 
| ters and other output devices. Extras: Common 
| parallei cabie with DB25 CONNECTOrS {$25 +), or IBM 


NALL 


DOPO UN GRANDE HCME ( T1 nos*ro nico 
caro TEXAS ) NON ST PUC' ANSDARE 

Ni f - 

INDIETRO. CI VUOLEC(APPENA DIS = sia 
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ALTRC 
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VISTA MI STO INTERE 
FAVORIRE TUTTI VOI. PER IL 
MENTO NON ACQUISTATE NULLA!! 
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Notes: IBM internal Modem is practical if seriai port 
is needed for a printer or other poripheral, and if 
300 baud is a satisfactory rate of communication. 
1 Works with rotary and touch-tone relephones. Ex- 
tras; Standard telephone junction adaprer ($3 +). 
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Una andova EsceRiégta li 
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L'INTERA RAC COLTA (100 PROGRAMMI ) VERRANNO CEDUTI GRATUITAMENTE 


r CHI ACQUISTERA' 


MERCATO ITALIANO. ( FIN 


DOVRANNO ESSERE ACCOMPAGNATE DA UN IMPORTO DI 100.000 
potremo ottenere condizioni di vendita vantaggiose.) 


STO LAVORANIO — ANCORA UNA VOLTA PER VOI TUTTI. 
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PUBBLICAZIONI E MATERIALE DISPONIBILE NEL VOSTRO CLUB TI, 99 


#) MANUALE IN ITALIANO " COME PROGRAMMARE IN ASSEMBLER CON MINIMEMORY" 
Allegata la Referenr Card dell ‘Editor Assembler 5 programmi in 
listato e il listato del. DISASSEMBLATORE Basic (WPagslire 12,000 


#8) MANUALE DELL'EXTENDIC BASIC IN ITALIANO 190 pagine di traduzione 
del nostro socio MILLEMACI di Guardiagrele cui potete richiederlo 
Nel nostro Club è disponibile a lire........00000000000000+19.000 

®) MANUALE DELL'EDITOR ASSEMBLER 520 pagine Inglese....lire...45.000 

e) MANUALE DEL TMS 9900 8 pagine in Italiano e 25 Incalese lire.8.000 

e) IMPARIAMO A PROGRAMMARE IN BASIC è Volume di 144 pagire con eser= 

| cizi risolti e proposti. 10 proarammi completi di arafica colore 
suono. Tutte le funzioni del TI basic arricchite con molti esem= 
pi. Introduzione ai ciochi etc elteelagaiszecinreceseen IE 14,000 

@) LEZIONI DELLF EXTENDIC BASIC in cassette. 7 lezioni su cassette 
piu” un gioco velocissitto GEMINI saesastrasees one baia la LUO 


®): LEZIONI DEL BASIC su 4 casse*te. £ lezioni per imparare il Basic 
dallo stesso Computer. INEerattido.sa oe xs usarziereuianca se Life 4,000 


®) VOLUME 50 PROGRAMMI COL VOSTRO TI In franc@Se?*90 pag.lire 20.000 


®) RIVISTA 99'er IN FOTOCOPIA ( ogni numero circa £0 pagine) sono 
disponibili i numeri NCV 3, MARZO 53, GEN €3, FER 83, e Un 


Mero SpecialBbsscacirzsensorisciioai NV a, DI 11,000 
}) VOLUME " TI 99 COMPUTER" DI K.TCWNSEND INGLESE.....LIRE 15,0CC 
e) LISTATI DI TUTTI I PROGRAMMI CHE ABBIAMO A DISPOSIZIONE POSSONO. 
ESSERE RICHIESTI allecando Pi sonna Bi cstosiiigegiziea ce LB 500C 


caduno” Sono esclusi i programmi prarionala di incecneria di 
contabilità. ( vedi lista programmi 


e) FCTOCOPIE DI ARTICOLI apparsi sulle varie riviste sono dispobibili 
a lire 100 fotocopia. Minimo ordinare 20 focli e aagiuncere 70C 
per la spedizione. 
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